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Mi Condicionales 


UANDO queremos o necesi- 
tamos que una determinada 
acción se efectúe o no de- 
pendiendo de una determi- 
nada condición, utilizamos 
la orden SI. 

Supongamos el si- 
guiente caso: 

Una mañana nos levantamos, nos aso- 
mamos a la ventana y observamos que está llo- 
viendo. Ante esto, cogemos un paraguas antes 
de ir a trabajar. Si por el contrario observamos 
que no llueve no cogemos el paraguas y nos 
vamos a trabajar. 

Veamos cuáles son las diferentes par- 
tes de que consta este proceso: 


1.2  Levantarse. 
2.2 Asomarse a la ventana. 
3.2 Ver si llueve. 
4. Si llueve coger un paraguas. 
Si no llueve, no cogemos el paraguas. 
5.2 Ira trabajar. 


Observa que en el punto cuatro tene- 
mos que realizar una determinada acción ¡sólo 
en el caso de que esté lloviendo. En este ejem- 
plo, podemos ver cuál es la condición y cuál 
la acción. 


CONDICION: Si llueve. 
ACCION: Coger un paraguas. 


Representemos gráficamente el caso 
expuesto por medio de un organigrama: 


LEVANTARSE 


ASOMARSE 
ALA 
VENTANA 


VER SI 
LLUEVE 


COGER 
PARAGUAS 


RÁ 
TRABAJAR 


Esta gráfica expresa claramente cómo, 
dentro de un proceso compuesto de varias fa- 
ses, puede llegar un momento en el que apa- 
rezca una condición y tengamos que realizar 


Si necesitas una función trigonométrica y tu 
versión de LOGO no dispone de ella, define un 
procedimiento para obtenerla. 


EXPERIENCIAS Y PRACTICAS EN LOGO 


una determinada acción cuando la condición 
se cumpla, para continuar después con el pro- 
ceso general. En el caso de que la condición 
no se cumpla, no se realiza acción alguna y 
continúa el proceso. 

En este caso, sólo se realiza una deter- 
minada acción cuando la condición se cumple, 
pero sería perfectamente válido realizar tam- 
bién una acción en el caso que no se cumpla. 

Supongamos, por ejemplo, que en nues- 
tor caso anterior, si observamos que no llue- 
ve, tendemos la ropa antes de ir a trabajar. 

Nuestro proceso quedaría ahora de la 
siguiente forma: 


La condición de este proceso es que el 
valor que introducimos a la variable sea me- 
yor de 50 y la acción a tomar sólo en el caso 
que se cumpla la condición, es que la Tortuga 
retroceda 25 pasos antes de dibujar el cuadra- 
do. Si la condición no se cumple, dibujamos el 
cuadrado exclusivamente. 

La forma de interpretarlo dentro de un 
procedimiento es la siguiente: 

En este caso, dependiendo de la condi- 
ción, realizamos dos acciones diferentes. Una 
para el caso afirmativo y otra para el caso ne- 
gativo. 

Una condición debe tener por lo menos 

Hagamos ahora el diagrama de este Una acción que realizar y siempre va a tener 
proceso: dos posibles respuestas, CIERTO o FALSO, o 


La orden SI tiene que tener al menos una acción 
que realizar. 


lo que es lo mismo, SI o NO o AFIRMATIVO o 
NEGATIVO. 

La acción a realizar puede estar com- 
puesta a su vez de una o varias acciones. 

Supongamos en nuestro ejemplo que la 
acción a tomar en el caso de que esté llovien- 
do no es sólo coger el paraguas, sino también 
coger la gabardina y unos guantes. En este 
caso realizamos tres acciones cuando la con- 
dición establecida sea cierta. 

Veamos cómo se puede interpretar en 
el Logo este tipo de procesos. 

Definimos un procedimiento con una 
variable como dato de entrada para realizar 
cuadrados de diferentes tamaños. La variable 
va a determinar la longitud que van a tener 
los lados del cuadrado. Si la longitud que in- 
troducimos, es decir, el valor que le damos a 
la variable, es mayor de 50, la Tortuga antes 
de dibujar el cuadrado, deberá retroceder 25 
pasos. 

Primero veamos las diferentes fases 
que realiza el proceso: 


1.2 Borrar la pantalla. 
2. Bajar el lápiz. 
3.2 Ver si la variable es mayor de 50. 
40 Si la variable es mayor de 50, re- 
trocede 25. 
Si no es mayor, no retrocede 25. 
5.2 Dibujar cuadrado. 
6.2 Finalizar. 


?PARA CUADRADOS :L 
>BP 

>BL 

>SI :L> SO[RE 25] 
>REPITE 4 [AV :L GD 90] 
>FIN 


La condición la expresamos utilizando 
la orden SI junto con una expresión que tiene 
que dar como resultado CIERTO o FALSO. 


La condición :L> 50 será cierta cuan- 
do el valor de :L sea superior a 50 y falsa cuan- 
do :L sea inferior o igual a 50. 

Observa que la acción a realizar la es- 
cribimos a continuación de la condición y en- 
cerrada entre corchetes. De esta forma indi- 
camos que se realice esa acción sólo en el 
caso que se cumpla la condición. 

Si la condición no se cumple, no se rea- 
liza lo que hay encerrado entre los corchetes, 


se pasa directamente a realizar lo que se en- 
cuentra en la siguiente línea del procedimiento. 

Ampliamos el procedimiento determi- 
nando una segunda acción a realizar para el 
caso que la condición no se cumpla: 

Si el valor de la variable no es mayor 
de 50, la Tortuga deberá avanzar 10 pasos an- 
tes de dibujar el cuadrado. 

El diagrama del proceso quedaría aho- 
ra de la siguiente forma: 


AVANZA 10 eo ii 


DIBUJAR 
CUADRADO 


En el procedimiento hay que realizar 
los siguientes cambios: 


?PARA CUADRADO :L 
>BP 

>BL 

>SI :L> S50[RE 25] [AV 10] 
>REPITE 4 [AV :L GD 90] 
>FIN 


Con la orden SI el LOGO ya puede tomar 


decisiones. 


EXPERIENCIAS Y PRACTICAS EN LOGO IN 


Observa que ahora, a continuación de 


la condición, expresamos las dos acciones a to- 


mar, tanto para el caso afirmativo como para 
el negativo. 

En primer lugar hay que escribir la ac- 
ción a tomar en el caso que se cumpla la con- 
dición y en segundo lugar la que hay que to- 
mar en el caso que no se cumpla. Las dos ac- 
ciones deben seguir este orden y cada una de 
ellas tiene que ir encerrada con sus respecti- 
vos corchetes. 

De forma general podemos expresar: 


SI CONDICION [ACCION 1] [ACCION 2] 
l CIERTO 4 


FALSO 


Si la condición establecida es verdade- 
ra (se cumple), se realizan las órdenes que se 
encuentran en los primeros corchetes y a con- 
tinuación se realizarán las órdenes que apare- 
cen en la siguiente línea del procedimiento. Si 
la condición es falsa (no se cumple), no se eje- 
cutarán los primeros corchetes y directamen- 
te se realizarán las órdenes que se encuentran 
en los segundos, para pasar a continuación a 

_Tealizar también las órdenes que hay en la lí- 
nea siguiente. 

Utilizando dos procedimientos que ya 
conocemos, uno para dibujar un cuadrado y 
otro para dibujar un triángulo, vamos a ejecu- 
tar dependiendo de una condición uno de 
ellos. 

Establecemos que si la variable A con- 
tiene el valor 1 dibujamos un cuadrado, y si 
tiene el valor 2 dibujamos un triángulo. 


?PARA CUADRADO 
>REPITE 4[AV 40 GD 90] 
>FIN * 


?PARA TRIANGULO 
>REPITE 3[AV 50 GD 120] 
>FIN 


?PARA DIBUJO 

>HAZ'A 1 

>SI:A = 1 [CUADRADO] 
>SI:A = 2 [TRIANGULO] 
>FIN 


Si a es igual a 1 llamamos al procedi- 
miento CUADRADO y si es igual a 2 llamamos 
al procedimiento TRIANGULO, 


El procedimiento DIBUJO que hemos 
definido, siempre dibujará un cuadrado, pues 
A siempre será igual a 1. 


Fig. 1. 


Si modificamos la segunda línea del 
procedimiento DIBUJO 


>HAZ "A 1 por >HAZ “A 2 


siempre que ejecutemos DIBUJO se dibujará 
un triángulo. 

Una manera de conseguir el dibujo que 
queramos sin tener que modificar ninguna lí- 
nea del procedimiento sería definir un proce- 
dimiento de una entrada con la que determi- 
nar el dibujo a seleccionar. 


?PARA DIBUJO :A 
>SI:A = 1 [CUADRADO] 
>51:A = 2 [TRIANGULO] 
>FIN 


Con este procedimiento que acabamos 
de definir para dibujar un cuadro tecleare- 
mos: 


?DIBUJO 1 
y para dibujar un triángulo: 

?DIBUJO 2 

Otra forma de definir el procedimiento 
anterior, suponiendo que no indicaremos al 
ejecutarlo valores distinto de 1 y 2, es la si- 
guiente: 

?PARA DIBUJO :A 


>SI:A = 1 [CUADRADO] [TRIANGULO] 
>FIN 


La orden SI debe escribirse en una misma línea 


LOGO. 


Si enviamos al procedimiento DIBUJO el 
valor 3 obtenemos un triángulo, ya que 3 no es 
igual a 1 y se ejecutaría el contenido de los si- 
guientes corchetes: 


?DIBUJO 3 


Fig. 2. 


ll Funciones trigonométricas 


Las funciones trigonométricas más co- 
munes y que todos conocemos son: 

SENO 

COSENO 

TANGENTE 

COTANGENTE 

SECANTE 

ARCOSENO 

ARCOCOSENO 

ARCOTANGENTE 

Veamos cómo obtenemos estas funcio- 
nes con el LOGO, bien utilizando las primiti- 


vas que ya vienen implementadas o bien de-, 


finiendo procedimientos para obtenerlas. 
—Función SENO 


Dibujo 1. 


La obtenemos con la primitiva SEN. 
SEN n 


Devuelve el seno de n, siendo n un án- 
gulo expresado en grados. 


?ESCRIBE SEN 90 
1 


?ESCRIBE SEN 30 
0.5 


En el LOGO del SPECTRUM la primiti- 
va que nos devuelve el seno de un ángulo n es: 
—Función COSENO. , 
Á 


e 


ha 


0B = COSENO 


Dibujo 2. 
La obtenemos con la primitiva COS. 
COS n 


Devuelve el coseno de un ángulo de n 
grados. 


ESCRIBE COS 90 
0 

?ESCRIBE COS 60 
0.5 


En el SPECTRUM la orden para hallar 
el coseno de un ángulo es: 


COSENO n 
—Función TANGENTE 


+ 


Dibujo 3. 


Antes de empezar a definir un procedimiento, haz 
un pequeño estudio del problema. 


EXPERIENCIAS Y PRACTICAS EN LOGO INIA 


Para obtener esta función definiremos Hemos hallado el seno y el coseno de 
un procedimiento, pues muchas versiones de  N, luego hemos dividido el coseno entre el 
LOGO carecen de una primitiva para obte- seno. 
nerla. 

Sabemos que: 

"TANGENTE n = (SENO n) /(COSENO n) 

?PARA TANGENTE :N 

>HAZ "S SEN :N 

>HAZ “C COS :N 

HAZ "T:S/06 

>ESCRIBE :T 

>FIN 


Hallamos el seno y el coseno de N y di- 
vidimos. 


?TANGENTE 45 


1 a 


En el LOGO del SPECTRUM sí dispone- 


2COTAN 60 
0.577 


—Función COSECANTE 


OF = COSECANTE 


mos de una primitiva para hallar la tangente: e bo 
is COSECANTE n = 1 SENO 
?ESCRIBE TANGENTE 60 ARAN 
1.732 ?PARA COSEC :N 
> HAZ "S SEN :¡N 
—Función COTANCENTE. >HAZ'R 1/8 
>ESCRIBE :R 
>FIN 
?COSEC 90 ' 
EF = COTANGENTE l 


—Función SECANTE 


Jar 


Cc 


S OC = SECANTE 


Dibujo 4. 


Sabemos que: 


COTANGENTE n = (COSENO n) / 
(SENO N) 


Como hemos hecho con la Tangente nos 
definimos un procedimiento para obtenerla. 


Dibujo 6 

?PARA COTAN :N La secante de un ángulo n es igual: 
>HAZ "S SEN :N ¿ 

HAZ "C COS :N SECANTE n = 1 / (COSENO n) 
>HAZ'R :C /::S ?PARA SEC :N 

>ESCRIBE :R >HAZ "C COS :N 

>FIN >HAZ'R1/:C 


Una acción puede estar formada a su vez por 
varias acciones. 
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> ESCRIBE :R 
>FIN 


—Función ARCOTANGENTE m. 


Con la función ARCOTANGENTE de m 
obtenemos el ángulo cuya tangente es m. 

Vamos a explicar la función ARCOTAN- 
GENTE antes que las funciones ARCOSENO y 
ARCOCOSENO pues, por lo general, todas las 
versiones de LOGO disponen de una primiti- 
va para obtener la misma función, pero no 
para obtener las segundas. 


Esta primtiva es: 
ARCTAN y 


Devuelve el ángulo (en grados) cuya 
tangente es y. 


?ESCRIBE ARCTAN y 
?ESCRIBE ARCTAN 1 
45 


En el LOGO del SPECTRUM la primiti- 
va es: 


ARCTOG y 
—Función ARCOSENO y 


Con la función ARCOSENO de y obte- 
nemos el ángulo cuyo seno es y. 

Para obtenerla definimos el procedi- 
miento ARCSEN. 


?7PARA ARCSEN :Y 

>HAZ AY. / (RC 1-:Y'* Y) 
>ESCRIBE ARCTAN :A 
>FIN 


Para saber el ángulo cuyo seno es 1 te- 
cleamos: 


?ARCSEN O.5 
30 


—Función ARCOCOSENO y. 


Esta función devuelve el arco en grados 
cuyo coseno es y. . 

Definimos un procedimiento para obte- 
nerla. 


?PARA ARCCOS :Y 

>HAZ "A (RC 1 -:Y *:Y) / :Y 
>ESCRIBE ARCTAN :A 
>FIN 


Sea 1 el coseno de un ángulo n. ¿Hallar 
cuánto vale n? 


Para hallar dicho ángulo llamamos al 
procedimiento que hemos definido indicando 
el valor de y que ya sabemos que es 1. 


?ARCOS 1 
0 


NOTA: 

En el LOGO del SPECTRUM existen las 
primitivas ARCSEN, ARCCOS y ARCCOTG, 
con las que obtendremos el arcoseno, el arco- 
coseno y el arcocotangente respectivamente. 


Mi Cuadro resumen 


—SI condición [Acción 2] 

Dependiendo de la condición que se 
establece, se efectuarán las órdenes que hay 
en los primeros corchetes [Acción 1] si la con- 
dición es cierta (se cumple), si no es cierta (no 
se cumple) se realizarán las órdenes que hay 
en los segundos corchetes [Acción 2]. 


—SEN n 
Devuelve el seno de n, siendo n un án- 
gulo expresado en grados. 


—COS n 
Devuelve el coseno de n, siendo n un 
ángulo expresado en grados. 


—ARCTAN y 
Devuelve el arco cuya tangente es y. 


Ml Ejercicios 

1. Define cuatro procedimientos para dibujar 
cuatro figuras geométricas y establece cua- 
tro condiciones para que dependiendo del 
valor de una variable dibuje uno u otro. 

2. Utilizando las funciones trigonométricas, in- 
tenta hallar la altura y el área de un trián- 
gulo isósceles, sabiendo que la base del 
triángulo es de 12fm. y el ángulo opuesto 
es de 50 grados. 


Dibujo 7. 


La orden SI tiene dos respuestas: cierto y falso. 


EXPERIENCIAS Y PRACTICAS EN LOGO INN 


3. Intenta realizar el siguiente dibujo. 


Fig. 3 


4. Tomando como base el siguiente display de 
7 segmentos, define los procedimientos ne- 
cesarios para representar los números del 
0 al 9, dibujando los segmentos necesarios 
para cada uno. 


Dibujo 8. 


Haz los cambios necesarios para que se 
generen 20 números aleatorios del 0 al 9 y se 
vayan representando en el display. 


5. ¿Son correctas las órdenes? 


—SI :A = [REPITE 3 [AV 10 GD 120] 
—SI:A [AV :A] 
—?HAZ “V 10 
?HAZ "W 20 
?SI:V < lO[HAZ "V :W] 
—?ESCRIBE SIN 45 
—?HAZ “V 1 
?SI:V = (COS 0) [HAZ “V ARCTAN 1] 
?ESCRIBE :V 
—?ESCRIBE 1 / COS 0 


Ñ Solución a los ejercicios 


1. Definidos cuatro procedimientos: 


?PARA CIRCULO 
>REPITE 36 [AV 2 GD 10] 
>FIN 


?PARA PENTAGONO 
>REPITE 5 [AV 20 GD 72] 
>FIN 


?PARA CUADRADO 
>REPITE 4 [AV 30 GD 90] 
>FIN 


?PARA HEXAGONO 
>REPITE 6 [AV 20 GD 60] 
>FIN 


Establecemos que: 

Si A = 1 ejecutamos CUADRADO 
Si A = 2 ejecutamos PENTAGONO 
Si A = 3 ejecutamos CIRCULO 

Si A = 4 ejecutamos HEXAGONO 
?PARA DIBUJO :A 

>SI A: = 1 [CUADRADO] 

>SI A: = 2 [PENTAGONO] 

>SI A: = 3 [CIRCULO] 

>SI A: = 4 [HEXAGONO] 

>FIN 


Una vez definido el procedimiento 
DIBUJO si queremos dibujar un hexágono 
lo ejecutaremos: 


?DIBUJO 4 
si queremos dibujar un círculo: 
?DIBUJO 3' 


Veamos primero el desarrollo mate- 


mático del problema. 


Si partimos el triángulo isósceles por 


la mitad obtenemos dos triángulos rectángu- 
los. 


A 


/ AH = Altura 


base * altura 
2 
Krea = BH* AH 


Area = 


Dibujo 9. 


No es necesario indicar la acción a realizar, en el 
caso de que la condición no se cumpla. 


La base de uno de los triángulos rectán- 
gulos es la base del isósceles dividida por 2. 


BH =6 
Sabemos que: 


TANGENTE 25 = SENO 28 / COSENO 25 
y que 


tangente 25 = BH / AH 

tangente 25 = 6 / AH 

AH = 6 / ((seno 25) / (coseno 25)) 
AH = 6 / 0,4663 

AH = 12,86 metros. 


Hemos hallado la altura. 
Para hallar el área: 


AREA = (2* BH* AH) /2=(BH* AH) 
AREA =6* 12,86 
AREA = 77,20 metros cuadrados. 


Una vez estudiado y comprendido el 
problema lo escribimos en LOGO. 


?PARA TRIAN 

>HAZ 'B 6 

>HAZ "T (SEN 25)'/ (COS 25) 
>HAZ '$H (B: / T:) 

>ESCRIBE :H 

>HAZ 'S (B:*:H) 

>ESCRIBE S 

>FIN 


Cuando ejecutemos este procedimiento 
primero aparecerá la altura y luego el área. 


?TRIAN 
12,86 
77,20 


3: 


Para realizar el dibujo de la caja, defi- 
nimos tres procedimientos que van a dibujar 
diferentes partes de ella. 

El primero, al que llamamos CAJA, es 
el que dibuja la estructura de la caja, formada 
por tablas unidas. De éste, se realiza una lla- 
mada a dos procedimientos diferentes que son 
los que van a dibujar las tablas que atraviesan 
la caja: 


?PARA CAJA 
>BP 
>OT 


>SL 

>PONPOS [-44 -44] 

>BL 

>REPITE 8 [REPITE 2 [AV 
BL AV 52 SL AV 10 BL AV 
10 GD 90] GD 90 SL AV 11 
>SL 

>GD 90 AV 1 Gl 90 

>BL 

>REPITE 6 [REPITE 2 [AV 8 SL AV 10 
BL AV 52 SL AV 10 BL AV 8 GD 45 AV 
10 GD 135] GD 45 AV 11 GI 45] 

>AV 88 Gl 90 AV 89 

>GI 45 AV 66 

>TABLAS] 

>TABLAS2 

>FIN 


8 SL AV 10 
8 CD 9 AV 
GI 90 BL] 


Si ejecutas este procedimiento en soli- 
tario, observarás que vamos dejando un hue- 
co en las tablas para luego dibujar encima de 
ellas las tablas horizontales. 

El procedimiento TABLAS] dibuja las 
tablas horizontales que tiene la caja: 


?PARA TABLASI 

>GCI 45 AV 8 Gl 90 

>REPITE 2 [REPITE 2 [AV 87 GD 90 AV 
10 GD 90] AV 87 SL AV 2 BL CI 45 RE- 
PITE 2 [AV 66 GD 135 AV 10 GD 45] GD 
45 SL AV 3 BL RELLENA SL RE 50 GD 
90 AV 3 BL RELLENA SL PONPOS [-44 
-26] PONRUMBO 90 BL] 

>FIN 


TABLAS 2 dibuja las tablas inclinadas 
de la caja: 


?PARA TABLAS2 

>SL 

>PONPOS [-38 22] 

>PONRUMBO 115 

>BL 

>REPITE 2 [AV 87 GD 90 AV 10 GD 90] 
>PONRUMBO 180 

>SL 

>AV 2 

>PONRUMBO 115 

>REPITE 9 [BL RELLENA SL AV 10] 
>$L 

>PONPOS 90 

>PONRUMBO 90 

>BL 


Las acciones tienen que ¡ir encerradas entre 


corchetes. 
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EXPERIENCIAS Y PRACTICAS EN LOGO INIA 


>REPITE 2[AV 38 GD 115 AV 10 GD 68] 
>GD 90 

>$SL 

>AV 8 CI 90 RE 2 

>REPITE 7 [BL RELLENA SL AV 7] 
>FIN 


Una vez tenemos definidos los tres pro- 
cedimientos necesarios, sólo tenemos que eje- 
cutar el primero de ellos para ver el dibujo: 


?CAJA - 


4: 


El display tiene siete segmentos y todos 
ellos son iguales. Lo único que varía de uno a 
otro es el lugar donde hay que dibujarlo y su 
sentido. 

Vamos a definir en primer lugar un pro- 
cedimiento para: dibujar exclusivamente el 
segmento. 


?PARA SEGMENTO 
>BL 

>AV 20RE 1 

>GD 90 AV 1 

>GI 90 RE 17 

>G1 90 AV 2 

>GD 90 AV 17 
>FIN 


A continuación definimos un procedi- 
miento por cada segmento que posee el dis- 


play, para dibujar cada uno en su lugar y con' 
su sentido. Primero vamos a designar a cada 


segmento con una letra: 


Dibujo 10. 


Definimos cada procedimiento con el 
nombre de la letra que le hemos dado a cada 
segmento: 


?PARA A 
>SL 


>PONPOS [0 0] 
>PONRUMBO 0 
>SEGMENTO 
>FIN 


?PARA B 

>SL 

>PONPOS [0 22] 
>PONRUMBO 0 
>SEGMENTO 
>FIN 


?PARA C 

>SL 

>PONPOS [-2 44] 
>PONRUMBO -90 
>SEGMENTO 
>FIN 


?PARA D 

>SL 

>PONPOS [-25 43] 
>PONRUMBO 180 
>S 

>FIN 


?PARA E 

>SL 

>PONPOS [-25 20] 
>PONRUMBO 180 
>SEGMENTO ' 
>PIN 


PARA F 

>SL 

>PONPOS [-23 -1] 
>PONRUMBO 90 
>SEGMENTO 
>FIN 


?PARA G 

>SL 

>PONPOS [-23 21] 
>PONRUMBO 90 
>SEGMENTO 
>FIN 


En todos estos procedimientos lo único 
que hacemos es posicionar a la Tortuga en 
cada uno de los puntos donde tiene que em- 
pezar a dibujar cada segmento y darle la 
orientación hacia donde tiene que dibujarlo. 

Ahora definimos un procedimiento que, 
por medio de una variable que utilizamos 


El ángulo que indicamos junto a una función 
trigonométrica debe estar expresado en grados. 


como dato de entrada, va a ir preguntando 
cuál es el número introducido. Dependiendo 
del número, tendrán que dibujarse los seg- 
mentos correspondientes para configurarlo en 
el Asia 


?PARA NUM :N 

>BP 
>SIIN=0[ABCDEF] 
>SI:N =1(A B] 
>SIIN=2[CBGEF] 
>SIN=3[CBGAF] 
>SIN=4[DGBA] 
>SIN=5[CDGAF] 
>SI:N =6 [DEF A G] 
>SI:N =7[A BC] 
>SIIN=8[ABCDEFG) 
>SI:¡NN=9[ABCDG] 
>FIN 


Observa que dependiendo del valor de 
:N, llamamos a los procedimientos que dibu- 
jan los segmentos que forman el número. 

Para ejecutarlo basta con introducir el 
nombre de este procedimiento y a continua- 
ción el número que queremos que se repre- 
sente en el display. ' 

Por ejemplo, si queremos obtener el 5: 


?2NUM 5 


AS 


| 


Fig. 4. 
Si queremos obtener el tres: 
?NUM 3 


DRROOIDAAAAD d+ 


| 


O 


Fig. 5. 


A continuación hacemos los cambios 
necesarios en el procedimiento NUM para 
conseguir generar un número aleatorio. Para 
ello, asignamos a la variable :N un número al 
azar entre 0 y 9. En este caso no se utiliza nin- 
guna variable como dato de entrada. 


?PARA NUM 

>HAZ 'N AZAR 10 
>SI:IN=0[ABCDEPF] 
>SI :N 
>SI 
>SI 
>SI 
>SI 
>SI 
>SI 
>: 
>8SI: 
>FIN 


QuaQ 
A a pa E 
3 33 


pue 


LL 


AA A AA 
2 


A A 
(CO 00-004 0DN- 
*> >» »ÑuUQuoaa» 
vUuUumUdwuwuww 


aQuoé3u 
UU 
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Como el ejercicio nos pide que gene- 
ren 20 números aleatorios, definimos otro pro- 
cedimiento para hacerlo. En él hacemos 20 ve- 
ces una llamada al procedimiento NUM, reali- 
zando antes una limpieza de la pantalla y mar- 
cando una pequeña espera antes de volver a 
repetirlo. 


?PARA ALEA 
>REPITE 20 [LIMPIA NUM ESPERA 10] 
>FIN 

Para ejecutarlo: 


?ALEA 


—?SI :A = 1 [REPITE 3 [AV 10 GD 120] 


CORRECTA 

Si la variable A es igual a 1, la Tortuga 
dibujará un triángulo. 

—?SI:A [AV :A] 


INCORRECTA 
Falta indicar la condición .que debe 
cumplir la variable A. 
—?HAZ "V 10 
?HAZ "W 20 : 
?SI:V< 10 [HAZ "V :W] 
CORRECTA 
Asignamos dos valores diferentes a V y 


W. Si la variable V es menor que 10, se le asig- 
na el valor de W. 


La orden SI potencia las posibilidades del Logo. 
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EXPERIENCIA Y PRACTICAS EN LOGO A 


Como la variable V es igual a 10, no se 
realizará ninguna acción. 


—?ESCRIBE SIN 45 
INCORRECTA 
La primitiva que devuelve el seno de un án- 


gulo es SEN no SIN. 
El LOGO muestra el mensaje: 


NO SE COMO PARA HACER SIN 


—HAZ "V 1 
?SI :V = (COS 0) [HAZ "V ARCTAN 1] 


otros procedimientos. 


consulta. 


MN -Si la condición no se cumple y no existe acción 
para este caso, se ejecutan las órdenes que 
haya en la línea siguiente. 


Ml Las condiciones pueden ser de relación y de 


? ESCRIBE :V 
CORRECTA 


El coseno de un ángulo de cero grados 
es 1; por tanto, la condición se cumple y se 
ejecuta el contenido de los corchetes. El arco- 
tangente de 1 es 45, valor que se le asigna a V. - 


—?ESCRIBE 1 / COSO 
CORRECTA 


El coseno del ángulo cero es 1. 
La orden anterior devuelve 1. 


WN Las acciones pueden contener llamadas a 
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A hemos visto cómo realizar 
el movimiento de figuras 
sencillas y de figuras algo 
más complejas. También vi- 
mos cómo controlar el movi- 
miento desde el teclado y 
cómo simular movimientos 
simultáneos dentro de nues- 
tro ordenador. Sabemos cómo hacer que cier- 
tos objetos reboten contra las paredes de la 
pantalla o contra otros objetos. Hemos apren- 
dido cómo realizar movimientos animados de 
una o varias figuras a la vez por la pantalla. Lo 
único que nos queda por ver sobre el movi- 
miento y la animación es hablar de algunos 
efectos o movimientos especiales que no se 
pueden encuadrar bajo ninguna denomina- 
ción específica. Tal es el caso de la simulación 
de explosiones, choques, realización de dispa- 
ros, etc. A todos estos tipos de efectos que aún 
están relacionados algunos de ellos con el mo- 
vimiento no lo son, les llamaremos efectos es- 
peciales y los veremos en este tomo. 


REM OACI 
REM * EL LLANERO SOLITARIO * 
REM OMMRAORRRRDIRRODLRRODIORE 
REM 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


REM 
DATA 0,0,60, 60,255, 60,62,60 


DATA 0,0,0, 0,128, 254,120,0 
REM 


REM 
FOR I=0 TO 31 

READ N 

POKE USR "A"+I,N 
NEXT I 
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YE Efectos especiales 


Como hemos dicho un poco más arriba, 
dentro de este grupo vamos a incluir efectos 
como: 


— Explosión de una nave o cualquier 
otro objeto. 


— Choques de unos objetos contra 
otros. 


— Disparos hechos por nosotros o por 
nuestros enemigos. 


Los dos primeros programas que vamos 
a ver nos muestran cómo un pistolero (en el 
SPECTRUM) y un tanque (en lo demás orde- 
nadores) disparan una bala para derribar unos 
cuadrados que hay esparcidos en la pantalla. 
Estos dos programas son el número uno y el 
número dos. El primero es sólo válido para los 
usuarios del SPECTRUM y el segundo para el 
resto de los ordenadores. 


REM x*xkxk DEFINICION DEL LLANERO SOLITARIO *x*x 


DATA 24,60,126,127,127,126,126, 126 
DATA 126,126,102,102,102,102,102,119 


REM *** LECTURA DE LAS DATAS *x*x* 


pistolero por la pantalla y 
as siguientes: 


— 6 Movimiento hacia arriba. 
— 7 Movimiento hacia abajo. 


NN 
— 8 Disparar. 


lizar para mover al 
para disparar son 1 


que han 


aparecido en ella. El juego no es nada del otro 
mundo, pero nos permite ver cómo realizar ru- 


, válido sólo para 


, hos permitirá mover al LLANE-- 


RO SOLITARIO arriba y abajo por la pantalla 


o 2 UN 


) O O 
: EEE 


Este primer programa 


el SPECTRUM 
disparar a los cuadros de colores 


E 
j 


tinas de disparo. Las teclas que se han de uti- 


2) 


Fig. 1. Definición del Llanero solitario en el SPECTRUM. 


Hay que decir que sólo disponemos de 
cinco disparos para deshacernos de los cinco 
cuadraditos que hay en la pantalla. 

El funcionamiento del programa es el 
siguiente: 


Líneas 160 a 190. En estas líneas se en- 
cuentran las líneas de DATA que tienen alma- 
cenados los números que definen la figura del 
pistolero. 

Línea 230. Comenzamos un bucle 0 y 31 
dentro del cual vamos a leer los números de 
las DATAS uno a uno y los vamos a ir POKEan- 
do en la zona de memoria donde se encuen- 
tran los caracteres definidos por el usuario. 

Línea 240. Leemos los valores de las lí- 
neas DATA y los almacenamos uno a uno en 
la variable N. 

Línea 250. Pokeamos el valor que aca- 
bamos de leer de las líneas DATA. 

Línea 260. Aquí termina el bucle que se 
encarga de definir los caracteres que darán 
forma al pistolero. 

Líneas 300 a 330. Ponemos la tinta de 
color negro, el papel de color amarillo, y el 
borde de color azul oscuro. Borramos la panta- 
lla. 

Línea 340. Comenzamos un bucle des- 
de 1 hasta 5 dentro del cual vamos a dibujar 
cinco cuadraditos en unas posiciones aleato- 
rias de la pantalla. 

Línea 350. Hacemos que la variable C 
tenga un valor aleatorio entre 1 y 5. Esta va- 
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riable definirá el color del cuadrado que se 
imprimirá a continuación. 

Líneas 360 y 370. Gracias a la función 
RND obtenemos dos números que serán las 
coordenadas en la pantalla del cuadrado que 
vamos a dibujar a continuación. El rango de la 
coordenada en X va desde la primera fila a la 
número 20. El rango de la coordenada en Y va 
desde la columna 15 hasta la 30. 

Línea 380. Imprimimos un cuadrado de 
color XC en lá posición de pantalla dada por 
las coordenadas XT, YT. 

Línea 390. Aquí termina el bucle que se 
encarga de dibujar cinco cuadrados en la pan- 
talla. 

Línea 400. Asignamos a la variable X el 
valor 11. Esta será la fila donde aparecerá el 
Llanero al principio del programa. 

Línea 410. Asignamos a la variable Y 
el valor 1. Esta será la columna donde coloca- 
remos y por donde se moverá el pistolero. 

Línea 420. Ponemos el contador de dis- 
paros realizados (D) a cero. 

Línea 430. Imprimimos la cabeza del 
pistolero. 

Línea 440. Imprimimos el cuerpo y la 
mano con la pistola. 

Línea 450. Imprimimos las piernas. 

Línea 460. Miramos si el usuario ha pul- 
sado alguna tecla. 


Línea 470. Si el usuario no pulsó ningu- 
na tecla entonces nos volvemos a la línea 460 
para volver a preguntar. Este bucle va a repe- 
tirse hasta que se pulse alguna tecla, 

Línea 480. Comprobamos que la tecla 
pulsada está dentro de las permitidas. Estas 
son el 6, el 7 y el 8. En caso de que no sea una 
de las permitidas se vuelve a la línea 460. 


Línea 490. Si el usuario pulsó la tecla de 
movimiento hacia arriba o hacia abajo (no pul- 
só la tecla de disparo), entonces borramos al 
pistolero de la pantalla. Más adelante lo volve- 
remos a imprimir en la nueva posición. 

Línea 500. Transferimos el control a la 
línea 600 o a la 700 o a la 800 dependiendo de 
la tecla pulsada por el usuario. 

Línea 510. Una vez que se ha ejecuta- 
do la rutina dependiendo de la acción que qui- 
so realizar el usuario y que se devolvió el con- 
trol al programa principal, se hace una peque- 
ña pausa antes de leer la siguiente pulsación 
del teclado. 

Línea 520. Nos volvemos a la línea 430. 
En esta línea vamos a imprimir de nuevo al 
pistolero. Si se varió la posición de éste, apa- 
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recerá en la nueva posición. Si no variamos su 
posición (sólo pulsamos la tecla de disparo) 
entonces aunque también imprimiremos al 
pistolero, no lo notaremos, puesto que ya esta- 
ba impreso. 

Línea 630. Si el usuario pulsó la tecla de 
movimiento hacia abajo, hacemos que la varia- 
ble X se incremente en uno. 

Línea 640. Si el pistolero se encuentra 
en una línea mayor que la 20 entonces hace- 
mos que X sea igual a 20. Con esto consegui- 
mos que el pistolero no intente salirse por la 
parte inferior de la pantalla y que el ordena- 
dor no nos dé error. 

Línea 650. Devolvemos el control al 
programa principal para dibujar al Llanero en 
su nueva posición. 

Línea 730. Si el usuario pulsó la tecla de 
movimiento hacia arriba entonces decremen- 
tamos la variable numérica X en uno. 

Línea 740. Si el Llanero se encuentra en 
una línea menor que la primera entonces, para 
que el ordenador no nos dé error al intentar 
imprimir al pistolero fuera de la pantalla, ha- 
cemos que X sea igual a 1. 

Línea 750. Devolvemos el control al 
programa principal para que imprima al pis- 
tolero en su nueva posición, 

Línea 830. Llegamos a esta línea cuan- 
do el usuario ha pulsado la tecla de disparo. 
Esta es la parte más importante del programa, 
pues a ella está dedicado este tomo. En esta lí- 
nea preguntamos si el pistolero ha gastado to- 
das sus balas. En caso afirmativo nos vamos a 
la línea 910 para darle un mensaje de despedi- 
da. 

Línea 840. Hacemos que la variable YB 
tome el valor de la variable Y+2. Esto sirve 
para indicar desde qué posición de la panta- 
lla ya a salir el disparo (la bala) del pistolero. 


REM ASI oKOK 
REM * ATAQUE BELICO * 
REM AMOO Iiook 
REM 

CLS 

RANDOMIZE TIMER 

REM 


REM 
FOR I=1 TO 5 
LET C=INT(RNDx1l6) 
IF C=2 THEN GOTO 200 
LET XT=INT(RND*18)+2 
LET YT=INT(RND*20)+20 
COLOR € 
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Línea 850. Imprimimos en dicha posi- 
ción un espacio en blanco seguido de un pun- 
to que actuará como bala. 

Línea 860. Incrementamos el valor de 
YB en uno. Esto es necesario porque, como el 
movimiento va a ser de izquierda a derecha, 
tenemos que aumentar el número de columna 
donde tendremos que imprimir dentro de un 
momento la bala que hemos disparado. 

Línea 870. Preguntamos si la bala ya ha 
llegado a la columna número 30. En caso afir- 
mativo imprimimos en la posición donde se 
encuentra dibujada un espacio en blanco, su- 
mamos uno al contador de balas gastadas y nos 
vamos a la línea 890 para volver al programa 
principal. 

Línea 880. Si todavía no hemos llegado 
al límite de la pantalla entonces nos volvemos 
a la línea 850 para imprimir la bala en su nue- 
va posición y calcular la siguiente. 

Línea 890. Devolvemos el control al 
programa principal. 

Líneas 930 a 950. Sacamos un mensaje 
de despedida y le decimos al ordenador que 
pare. 


A continuación vamos a ver un progra- 
ma muy parecido al anterior pero en versión 
para IBM, Este programa nos permite mover 
un tanque hacia arriba y hacia abajo por la 
pantalla y disparar a una serie de cuadrados 
que aparezcan en pantalla. 

Las teclas que nos permitirán controlar 
el movimiento del tanque y disparar son las si- 
guientes: 


— P Movimiento hacia arriba. 
— L Movimiento hacia abajo. 
— Q Disparar. 


REM *x*x* SITUACION DE LOS BLANCOS A DISPARAR xxx 


250 LOCATE XT, YT 
260 PRINT CHR$(177) 
270 NEXT 1 

280 REM 


290 REM x**x* DISENO DEL TANQUE xxx 
300 REM 


310 LET X=11 
320 LET Y=2 

330 LET D=0 

340 COLOR 4 

350 LOCATE X-2,Y+4 

360 PRINT CHR$(218);CHR$(196) 

370 LOCATE X-1,Y+4 

380 PRINT CHR$(219);CHR$(219);STRING$(3,205) 
390 LOCATE X, Y+1 

400 PRINT STRING$(8, 219) Hs 
410. LOCATE X+1, Y . 
420 PRINT STRING$(10,219) 

430 REM 

440 REM **x MOVIMIENTO Y DISPARO xxx 

450 REM de 

460 LET A$=INKEY$ 

470 IF A$="" THEN GOTO 460 

480 IF A$<>"P" AND A$<>"L" AND A$<>"Q" THEN GOTO 460 
490 IF A$="Q" THEN GOTO 580 

500 LOCATE X-2,Y+4 

510 PRINT " 

520 LOCATE X-1,Y+4 

530 PRINT+SPC(5) 

540 LOCATE X, Y+1 

550 PRINT SPC(8) 

560 LOCATE X+1,Y 

570 PRINT SPC(10) 

580 IF A$="Q" THEN GOSUB 630 

590 IF A$="L" THEN GOSUB 770 

800 IF A$="P" THEN GOSUB 830 

610 GOTO 350 

620 REM * 

630 REM *xx*x* DISPARO DEL TANQUE xxx 

640 REM 

650 IF D=5 THEN GOTO 890 

660 LET YB=Y+9 

670 LOCATE X-1, YB ; 

880 PRINT " ";CHR$(249) 

690 LET YB=YB+1 

700 IF YB>38 THEN LOCATE X-1,YB:PRINT " ":GOTO 740 
710 FOR I=1 TO 50 

720 NEXT 1 

730 GOTO 670 

740 LET D=D+1 

750 RETURN 

760 REM 

770 REM x*x*x* MOVIMIENTO HACIA ABAJO *XX 

780 REM : 

790 LET X=X+1 

800 IF X>20 THEN LET X=20 

810 RETURN 

820 REM 

830 REM **x* MOVIMIENTO HACIA ARRIBA kx 

840 REM 

850 LET X=X-1 

860 IF X<3 THEN LET X=3 

870 RETURN 

880 REM 

890 REM **x FIN DEL JUEGO xxx 
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EE ÓN oo e 1 O 
[ “910 LOCATE 1,1 
> UN Y 980. PRINT. "ADIOS . 
TS END y 


me 
a Y 


Como el programa está hecho para el 
IBM, para que funcione en otros ordenadores 
habrá que realizar las siguientes modificacio- 
nes: 


Fig. 2. El programa 2 en ejecución. 


COMMODORE: 


140 PRINT CHR$(147) 

150 LET A=RND(-TD 

200 REM 

210 REM 

220 LET XT=INT(RND(1)18)+2 

230 LET YT=INT(RND(1)20)+19 

240 REM 

250 POKE 214,XT:POKE 211, YT 

250 PRINT CHR$(166) 

340 REM 

350 POKE 214,X-2:POKE 211,Y+4 

360 PRINT CHR$(176); CHR$(99) 

370 POKE 214,X-1:POKE 211,Y+4 

380 ?CHR$(166);CHR$(166);CHR$(168)¡CHR$(168);CHR$(168) 
390 POKE 214,X:POKE 211,Y+1 

400 FOR Z=1 TO 8:PRINT CHR$(166);:NEXT Z 
410 POKE 214,X+1:POKE 211,Y 

420 FOR Z=1 TO 10:PRINT CHR$(166);: NEXT Z 
460 GET A$ 

500 POKE 214,X-2:POKE 211,Y+4 

520 POKE 214,X-1:POKE 211,Y+4 

530 PRINT " "¡REM 3 ESPACIOS 

540 POKE 214,X:POKE 211,Y+1 

550 PRINT * ".REM 8 ESPACIOS 

560 POKE 214,X+1:POKE 211, Y 

570 PRINT * ”.¡REM 10 ESPACIOS 

670 POKE 214,X-1:POKE 211,YB 

680 PRINT ” .' 

700 IF YB>37 THEN POKE 214,X-1:POKE 211, YB:PRINT 
* "¿GOTO 740 

910 POKE 214,0:POKE 211,0 


920 PRINT "EL sumo a TERMINADO. yA 


AMSTRAD: 


150 RANDOMIZE TIME 

200 LET C=INT(RND()D)+1 

220 LET XT=INT(RND()18)+2 
230 LET YT=INT(RND(1)'20)+20 
240 INK € 

250 LOCATE YT,XT 

260 PRINT CHR$(127) 

340 INK 4 

350 LOCATE Y+4,X-2 

360 PRINT CHR$(150)¡CHR$(154) 
370 LOCATE Y+4,X-1 

380 PRINT CHR$(143);CHR$(143);¡STRING$(3,140) 
390 LOCATE Y+1,X 

400 PRINT STRING$(8,143) 

410 LOCATE Y,X+1 

420 PRINT STRING$(10,143) 

500 LOCATE Y+4,X-2 

520 LOCATE Y+4,X-1 

540 LOCATE Y+1,X 

560 LOCATE Y,X+1 

670 LOCATE YB,X-1 

680 PRINT * "¡CHR$(144) 

700 IF YB>38 THEN LOCATE YB,X-1:PRINT *":GOTO 740 


MSX: ' 


150 LET A=RND(CTIME) 

200 LET C=INT(RND()'D)+1 

220 LET XT=INT(RND()18)+2 
230 LET YT=INT(RND(1)'20)+20 
250 LOCATE YT,XT 

260 PRINT CHR$(215) 

350 LOCATE Y+4,X-2 

360 PRINT CHR$(199);CHR$(195) 
370 LOCATE Y+4,X-1 

380 PRINT CHR$(219);CHR$(219);STRING$(3,195) 
390 LOCATE Y+1,X 

400 PRINT STRING$(8,219) 

410 LOCATE Y, X+1 

420 PRINT STRING$(10,219) 

500 LOCATE Y+4,X-2 

520 LOCATE Y+4,X-1 

540 LOCATE Y+1,X 

560 LOCATE Y,X+1 

670 LOCATE YB,X-1 

680 PRINT * ",¡CHR$(188) 

700 1F YB>38 THEN LOCATE YB,X-1:PRINT *".GOTO 740 


Una vez vistas las modificaciones vamos 
a ver el funcionamiento del programa línea a 
línea. 


Línea 140. Borramos la pantalla. 

Línea 150. Inicializamos el generador 
de números aleatorios utilizando el valor del 
reloj que tiene el ordenador. 


Línea 190. Comenzamos un bucle den- 
tro del cual vamos a imprimir cinco cuadrados 
de colores dentro de la pantalla. 

Línea 200. Obtenemos un número (C) 
entre 1 y 16 (en el IBM) o entre 1 y 7 (en los 
demás ordenadores) que nos dirá de qué co- 
lor va a ser el cuadrado que tenemos que im- 
primir. 

Línea 220. Obtenemos otro número 
(XT) que nos dará la coordenada en Y de la 
pantalla donde se colocará el cuadro que va- 
mos a imprimir a continuación. 

Línea 230. Obtenemos la coordenada 
en X (YT) de dicho cuadrado. 

Línea 240. Le decimos al ordenador 
que queremos imprimir con el color C. En el 
COMMODORE esta instrucción no se ha pues- 
to porque es algo más complicada y porque 
es mejor dejarla sin explitar hasta que llegue- 
mos al capítulo del color. 

Línea 250. Colocamos el cursor en la 
posición de la pantalla que acabamos de ha- 
llar, 

Línea 260. E imprimimos un cuadrado 
de color C. ' 

Línea 270. Aquí termina el bucle que se 
encarga de imprimir los cinco blancos que 
tendrá que derribar el tanque. 

Línea 310. Asignamos a la variable X el 
valor 11, Esta variable nos dice en qué fila se 
va a colocar el tanque al empezar a ejecutar- 
se el programa. 

Línea 320. Asignamos a la variable Y el 
valor 2. Esta variable almacenará la columna 
donde empieza la figura del tanque. 

Línea 330. La variable D contará el nú- 
mero de disparos que hemos hecho. Estos tie- 
nen un límite de 5. En esta línea ponemos a 
cero esta variable. 

Línea 340. Ponemos el color que tendrá 
el tanque y los disparos que éste realice. 

Líneas 350 a 420. Utilizando los carac- 
teres semigráficos del ordenador dibujamos 
un tanque. 

Línea 460. Miramos si el usuario ha pul- 
sado alguna tecla, 

Línea 470. Si no pulsó ninguna nos vol- 
vemos a la línea anterior para volver a pregun- 
tar. Este bucle se repite hasta que el usuario 
pulsa alguna tecla, sea o no sea permitida. 

Línea 480. Si la tecla que ha pulsado no 
es ni una P ni una Q entonces volvemos a la lí- 
nea 460 para esperar a que pulse algunas de 
estas teclas. Como se puede apreciar, sólo se 
pueden pulsar teclas que estén en mayúscu- 
las. 
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Línea 490. Si la tecla pulsada fue la de 
disparo nos vamos a la línea 580. Esta línea 
está puesta, pues si el usuario pulsó otra tecla 
(que tiene que ser de movimiento) vamos a 
borrar el tanque de su posición actual para 
más tarde volverlo a imprimir en su nueva po- 
sición, Como cuando se dispara no hay varia- 
ción en su posición, nos tenemos que saltar el 
grupo de líneas que vienen a continuación. 

Líneas 500 a 570. Borramos el tanque 
de su posición actual. 

Línea 580. Si el usuario pulsó la tecla Q 
entonces nos vamos a la línea 630 para gestio- 
nar el disparo. es 

Línea 590. Si el usuario pulsó la tecla L 
entonces nos vamos a la línea 770 para gestio- 
nar el movimiento hacia abajo. 

Línea 600. Si el usuario pulsó la tecla P 
nos vamos a la línea 830. 

Línea 610. Una vez que hemos vuelto 
de la rutina correspondiente nos volvemos a 
la línea 350 para recoger la siguiente pulsa- 
ción del usuario. 

Línea 650. Llegamos a esta línea cuan- 
do el usuario ha pulsado la tecla O. Primero 
preguntamos si ya ha hecho cinco disparos. En 
caso afirmativo nos vamos a la línea 890 para 
imprimir un mensaje de despedida. 


Línea 660. Si todavía no ha agotado las 
balas que tenía el tanque, entonces hacemos 
que la variable YB tome el valor de la posición 
desde donde saldrá la bala que queremos lan- 
zar. 

Línea 670. Colocamos el cursor en di- 
cha posición. 

Línea 680. E imprimimos un carácter en 
blanco seguido del carácter semigráfico que 
utilizaremos como bala. 

Línea 690. Hacemos que la posición de 
la bala aumente en uno (YB=YB+1) para po- 
derla colocar, en la siguiente vuelta, una posi- 
ción más a la derecha de la que tenía anterior- 
mente. 

Línea 700. Si la bala está en la columna 
39 (YB>-38) entonces tenemos que hacer que 
desaparezca. Por ello colocamos el cursor en 
la posición pertinente e imprimimos dos espa- 
cios. A continuación nos vamos a la línea 740 
que nos permitirá volver al programa princi- 
pal. 

Líneas 710 y 720. Realizamos un bucle 
de retardo para que la bala no se mueva con 
excesiva rapidez. Variando el número que va 
después de la palabra TO podremos hacer 
que la bala vaya más de prisa o más despacio. 
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Línea 7130. Decimos al ordenador que 
continúe el programa en la línea 670 para im- 
primir la bala una posición más hacia la dere- 
cha y continuar con el movimiento de ésta. 

Línea 740. Como acabamos de hacer un 
disparo, hacemos que la variable encargada 
de contarlos (D) aumente en uno. 

Línea 750. Devolvemos el control al 
programa principal. 

Línea 790. Aparecemos en esta línea 
cuando nos queremos mover hacia abajo. Por 
ello incrementamos la variable X en uno, 

Línea 800. Si X es mayor que 20 signi- 
fica que estamos a punto de tocar el borde in- 
ferior de la pantalla. Hacemos que X sea igual 
a 20 para que el tanque no se salga de la pan- 
talla y para que el ordenador no nos dé un 
error. 

Línea 810. Nos volvemos al programa 
principal. Una vez en éste, imprimiremos el 
tanque en su nueva posición. 

Línea 850. Si el usuario pulsó la tecla 
para mover el tanque hacia arriba, aparecere- 
mos en esta línea. Decrementamos el valor de 
X para disminuir el número de fila. 

Línea 860. Si la variable X es menor de 
3 entonces el tanque se va a salir por la parte 
superior de la pantalla. Para remediarlo hace- 
mos que X sea igual a 3 y así el ordenador no 
nos da ningún mensaje de error al intentar im- 
primir el tanque fuera de la pantalla. 

Línea 870. Devolvemos el control al 
programa principal. Una vez allí imprimire- 
mos el tanque en su nueva posición. 
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Líneas 910 a 940. Imprimimos un men- 
saje de despedida y terminamos el programa. 


Como se puede apreciar, mientras el 
tanque (o el Llanero solitario) está disparando, 
no podemos movernos. Hacer un programa 
que nos permita movernos a la vez que un dis- 
paro que nosotros hemos hecho siga su curso 
entra dentro de lo que hemos llamado movi- 
mientos simultáneos. En el próximo tomo ve- 
remos unas modificaciones de estos progra- 
mas que nos permitirán, no sólo movernos 
mientras la bala sigue su curso, sino detectar 
cuándo ésta ha chocado con algo. También ve- 
remos cómo realizar explosiones y colisiones 
al chocar la bala con cualquier objeto. 

Se insta al lector para que intente resol- 
ver este problema antes de ver la solución. Se 
pide un programa como el que hemos visto 
pero con las siguientes modificaciones: 


— Mientras la bala está moviéndose, el 
tanque (o pistolero) también se puede y debe 
mover. 

— Cuando la bala choque con un cua- 
drado tiene que haber una explosión. 

— Si la bala no choca con ningún blo- 
que en su trayectoria, invertirá el sentido de 
su movimiento e intentará matar al tanque (o 
pistolero). 

— Si la bala choca con el tanque (o pis- 
tolero), éste tiene que deshacerse en trozos. 


Si realizamos un programa así, podre- 
mos decir que hemos terminado con los capí- 
tulos referentes al movimiento. 


TRUCOS Y RUTINAS BASICAS (AAA 


N el tomo anterior ya vimos 

algunas rutinas de ordena- 

ción numérica y alfanuméri- 

ca. En este tomo veremos 

unos cuantos más y termina- 

remos con este tipo de rutina. 

Las rutinas que vie- 

nen a continuación pueden 

ser utilizadas con el programa número uno del 

tomo anterior. Todas, al igual que las que ya 

hemos visto, se encuentran localizadas a par- 
tir de la línea 100. 


El primero de los programas realiza un 
SORT (una ordenación) de una lista de ele- 
mentos por el método de cambio de tabla. Este 
método consiste en crear dos tablas distintas. 
En una de ellas estarán almacenados los 'ele- 
mentos a ordenar. En la otra iremos almace- 
nando los elementos una vez ordenados. Se re- 
comienda la utilización de este método para 
listas que estén parcialmente ordenadas. De 
todas maneras, su velocidad es bastante acep- 
table. 


1000 REM Aaa SISSI Illa lalalala RR ROOROIOIOIOK 


1010 REM x*x 


1020 REM * <<< ORDENACION POR EL METODO DE CAMBIO DE TABLA >>> 


1030 REM x* 


1040 REM * VARIABLES QUE HAY QUE PASARLE AL PROGRAMA 
1050 REM * ======= it 


1060 REM 
1070 REM 
1080 REM 
1090 REM 
1100 REM 
1110 REM 
1120 REM 
1130 REM 
1140 REM 
1150 REM 
1160 REM 
1170 REM 
1180 REM 
1190 REM 
1200 REM 


XK XA XA 
Ur 
e 
PS 
ke 
"ou 


* 


a 
"o..." 


RS) 


ORDENADOS EN T$(). 


KK A XA XK XX > X k > 


NUMERO DE ELEMENTOS A ORDENAR 
TABLA CON LOS ELEMENTOS A ORDENAR 


VARIABLES INTERNAS USADAS POR LA RUTINA 


VARIABLE DE INTERCAMBIO 

VARIABLE INDICE DEL PRIMER BUCLE 
VARIABLE INDICE DEL SEGUNDO BUCLE 
TABLA AUXILIAR 


LA SUBRUTINA NOS RETORNA CON LOS DATOS 


EX E A E AC AAA AAA 


1210 REM dodo oooO IO III IOIOJOK: 


1220 REM 

1230 DIM R$(NU) 

1240 LET R$(1)=T3(1) 
1250 FOR 1=2 TO NU 


1260 LET R$(1)=T$(1) 

1270 IF R$(I)>=R$(I-1) THEN GOTO 1290 
1280 . GOSUB 2000 

1290 NEXT I 


1300 FOR I=1 TO NU 
1310 LET T$(T)=R$(I) 
1320 NEXT 1 

1330 RETURN 

2000 REM 
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Ñ xl lo” 1 A ñ 


A a 
5 Ed 11102050, FOR J=1 TO 2 STEP -1 
2060 
a La 2070. LET A$=R$(J) 
MIRNA 2080. LET R$(J)=R$(J-1) 
e 2090 LET R$(J-1)=A4$ 
AAA 2100. NEXT J | 
CAIB 2110 RETURN 
El programa puede funcionar en todos 
los ordenadores, Si queremos utilizarlo en el 
SPECTRUM tendremos que variar la línea 1230 
por: 


1230 DIM R$(NU,100) 


El segundo número dentro de la dimen- 
sión (100) le dice al ordenador la longitud 
máxima de cada elemento. Así, si necesitamos 
que dicha longitud sea mayor, sólo tenemos 
que variar esta línea. Por ejemplo, si cada ele- 
mento puede tener hata 135 caracteres de lon- 
gitud, entonces pondremos: 


1230 DIM R$(NU,135) 


También sería conveniente que variá- 
semos la longitud cuando ésta sea menor de 
100 para ahorrar memoria. 

La explicación del funcionamiento de la 
rutina línea a línea es el siguiente: 


Línea 1230. Dimensionamos la matriz 
R$O para que tenga el número de elementos 
que queremos ordenar. 

Línea 1240. Asignamos al primer ele- 
mento de la tabla R$( el primer elemento de 
T$0. Esto se hace necesario porque más ade- 
lante, cuando empecemos a comparar, vamos 
a necesitar que en la primera posición de R$( 
hayá algo. 

Línea 1250. Comenzamos un bucle en- 
tre 2 y el número de elementos a ordenar den- 
tro del cual se producirá la ordenación. 

Línea 1260. Asignamos a R$() el valor 
de T$(i). Lo que hace esta línea es ir pasando 
los elementos que se encuentran en la tabla 
T$0 a R$O. 

Línea 1270. Si el número que acabamos 
de almacenar en R$() es mayor o igual que el 
que está almacenado en la posición anterior, 
entonces nos vamos a la línea 1290 para con- 
tinuar con el siguiente elemento. Lo que hace 
esta línea es mirar si el elemento que acaba- 
mos de introducir ha quedado ordenado o no. 
Como los anteriores elementos de la tabla van 
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ZO 10. REM dodo ota: 
L 2020 REM * SUBRUTINA DE INTERCAMBIO * 
2030. REM MAI dor 


IF R$(J)>R$(J-1) THEN RETURN - 


siendo ordenados en cada paso, si el elemen- 
to que acabamos de colocar en ésta, es mayor 
o igual que el anterior, significa que ya está or- 
denado. 

Línea 1280. En caso negativo, si el ele- 
mento que acabamos de introducir es menor 
que el anterior, lo cual significa que tiene que 
estar por lo menos antes que éste, nos vamos 
a la línea 2000 para colocar el nuevo elemento 
donde corresponda. 

Línea 1290. Y terminamos el bucle. Una 
vez llegados a este punto tenemos toda la ta- 
bla ordenada en R$0. 

Línea 1300. Comenzamos un nuevo bu- 
cle dentro del cual vamos a pasar todos los 
elementos, que se encuentran ordenados en 
R$O, a TSO. 

Línea 1310. Los pasamos uno a uno, 

Línea 1320. Terminamos el bucle. Hay 
que decir que si el lector quiere tener una ta- 
bla con los elementos ordenados, pero tam- 
bién le interesa, por el motivo que sea, tener 
otra tabla con los elementos tal y como esta- 
ban antes de sufrir la ordenación, puede qui- 
tar estas últimas tres líneas. Con ello se consi- 
gue que tengamos la tabla ordenada en R$( y 
la tabla tal y como era antes de la ordenación 
en T$0. 

Línea 1330. Devolvemos el control al 
programa principal y que llamó a esta rutina. 


A continuación viene la rutina que se 
encarga de colocar el nuevo elemento que 
acabamos de introducir en R$( en el lugar 
que le corresponda. 

Línea 2050. Empieza un bucle dentro 
del cual vamos a ordenar el elemento que aca- 
bamos de introducir. El bucle va desde l has- 
ta 2 (con incremento negativo) para empezar 
la ordenación desde el elemento que acaba- 
mos de introducir. El por qué empezamos por 
el elemento que acabamos de introducir lo ve- 
mos en la línea siguiente. 

Línea 2060. Preguntamos si el elemen- 
to al cual apunta la variable ] (variable índice 


del bucle) es mayor que el anterior. En caso 
afirmativo nos volvemos a la rutina principal. 
Esta comprobación nos sirva para saber cuán- 
do está ordenada totalmente la parte de la ta- 
bla en la que estamos trabajando, pues, como 
ésta estaba ordenada ya de la última pasada, 
y lo único que queríamos hacer era colocar el 
último elemento en la posición que le corres- 
ponda, cuando éste esté colocado, todo el res- 
to estará ordenado. 


Línea 2070. Hacemos que A$ sea igual 
a R$(). Esta variable (A$) la utilizaremos para 
realizar el intercambio de posición de dos ele- 
mentos de la tabla. 

Línea 2080. Hacemos que R$(j) sea 
igual a R$(-1). 

Línea 2090. Pasamos el valor de A$ al 
elemento R$(¡-1). Una vez que estas tres líneas 
han sido ejecutadas, los dos elementos sobre 
los que trabaja están ordenados. 

Línea 2100. Aquí termina el bucle. 

Línea 2110. Nos volvemos a la rutina 
principal. . 

Se recuerda al lector que para utilizar 
estas rutinas puede utilizar el pograma núme- 


ro uno del tomo anterior y ver, así, cómo fun- 
cionan. 


El segundo programa que vamos a ver 
también realiza la ordenación de todos los ele- 
mentos utilizando una segunda tabla auxiliar. 
El método no es muy bueno ni muy rápido si 
la tabla a ordenar no está parcialmente orde- 
nada. Por otra parte, la tabla origen desorde- 
nada se pierde, ya que cada vez que cogemos 
un elemento de ésta, se pone en su lugar el ca- 
rácter 255 para saber que ese elemento ya ha 
sido ordenado en la tabla auxiliar. Debido a 
esto, no podemos tener por un lado la tabla ór- 
denada y por el otro la tabla antes de sufrir la 
ordenación. 

Este programa sólo aparece a título de 
ejemplo y para que se sepa de su existencia, 
pues se utiliza en muy pocas ocasiones. 

El programa ordena por la búsqueda 
del mínimo. Esto consiste en encontrar el ele- 
mento de la tabla origen T$() más pequeño y 
ponerlo en la tabla destino R$(. Cada vez que 
hemos encontrado el elemento más pequeño, 


lo pasamos a R$() y en T$0 lo sustituimos por 
el carácter 255. 


1000 REM oooO lao OIOIO OOOO OR RIOR O 


1010 REM x* 

1020 REM * 

1030 REM * 

1040 REM * VARIABLES QUE HAY QUE PASARLE AL PROGRAMA 
1050 REM *- ======="==="==========- 

1060 REM * 

1070 REM * NU  = NUMERO DE ELEMENTOS A ORDENAR 
1080 REM x* T$() = TABLA CON LOS ELEMENTOS A ORDENAR 
1090 REM * 

1100 REM * VARIABLES INTERNAS USADAS POR LA RUTINA 
1110 REM * -—--=-=-=--- o 

1120 REM * 

1130 REM * A$  = VARIABLE DE INTERCAMBIO 

1140 REM *x I = VARIABLE INDICE DEL PRIMER BUCLE 
1150 REM *x A = VARIABLE AUXILIAR 

1160 REM *x B = VARIABLE AUXILIAR 

1170 REM * C = VARIABLE AUXILIAR 

1180 REM * R$() = TABLA AUXILIAR 

1190 REM * : 

1200 REM * LA SUBRUTINA NOS RETORNA CON LOS DATOS 
1210 REM * ORDENADOS EN TS(). 

1220 REM * 


<<< ORDENACION POR EL METODO DE BUSQUEDA DEL MN >>> 


AAA A A 


ARA KKAKAKKAKKEAAAAAAASR A 


1230 REM ARROJA OOO III iiO RR 


1240 REM 

1250 DIM R$(NU) 

1260 LET A=1 

1270 LET M$=CHR$(255) 

1280 LET B=1 

1290 LET C=1 

1300 IF C>NU-1 THEN GOTO 1350 


1310 IF T$(B)<T$(C+1) THEN LET C=C+1:GOTO 1300 


1320 LET B=C+1 
1330 LET C=C+1 
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1340 GOTO 1300 

AE 1350 LET R$(A)=T$(B) 
AÑ 15F 1360 LET T$(B)=M$ 

2 134 ¿1370 LET -A=A+1 
E, 1880 TF A<=NU THEN GOTO 1280 
oo 1890 FOR I=1' TO NU 

1400 LET T$(I)=RS(1) 
A 1410 NEXT 1 
—_— + 1420 ¡RETURN 


Como siempre, la rutina puede funcio- 
nar en todos los ordenadores, pero para que 
funcione perfectamente en el SPECTRUM hay 
que variar el línea 1250 por: 


1250 DIM R$(NU, 100) 


Como ya dijimos un poco más arriba, el 
número 100 puede, y debe, variarse de acuer- 
do con la longitud de los elementos de la tabla, 

La explicación del programa línea a lí- 
nea es la siguiente: 


Línea 1250. Dimensionamos la matriz 
R$O que será la encargada de almacenar la ta- 
bla T$(O una vez que ésta esté ordenada. 

Línea 1260. Hacemos que la variable A 
tenga valor uno. Esta variable será la encar- 
gada de apuntar a la posición dentro de R$0O 
donde tendremos que poner el siguiente ele- 
mento de T$() que encontremos. 

Línea 1270. Asignamos a la variable M$ 
el carácter 255 y que utilizaremos para borrar 
de T$O los elementos que ya han sido ordena- 
dos y almacenados en R$0. 

Línea 1280. Hacemos que la variable 
numérica B tenga el valor 1. Esta variable será 
la que nos diga, en un momento cualquiera de 
la ejecución del programa, qué ficha es la que 
tiene un valor más pequeño de las que hemos 
visto hasta el momento. 

Línea 1290. Asignamos el valor uno (1) 
a la variable C. Esta será la encargada de re- 
correrse la tabla T$(O) de uno en uno hasta el 
final. 

Línea 1300. Preguntamos si C es mayor 
que el número de elementos a ordenar menos 
uno (NU-1). En la primera vuelta del progra- 
ma, esta línea no nos dice nada, pero será la 
encargada de controlar que ya hemos visto to- 
dos los elementos de T$() y que, por tanto, ya 
tenemos almacenado en B la posición del más 
pequeño de ellos. Si resulta que ya nos hemos 
mirado toda la tabla, nos vamos a la línea 1350 
para colocar el elemento más pequeño donde 
le corresponda. 

Línea 1310. Preguntamos si el elemen- 
to que tenemos almacenado como el menor de 
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todos hasta el momento es menor que el que 
apunta C+1. En caso afirmativo, aumentamos 
en uno el valor de C para mirar el siguiente 
elemento y nos vamos a la línea 1300, 

Línea 1320. Si resulta que el elemento 
al cual apuntamos con la C+1 es menor que el 
que está siendo apuntado por B, entonces ha- 
cemos que B tome la posición de dicho ele- 
mento, 

Línea 1330. Hacemos que C se incre- 
mente en uno. 

Línea 1340. Y nos volvemos a la línea 
1300, Este grupo de líneas (desde la 1300 has- 
ta la 1340) se va repitiendo hasta que hemos 
visto toda la lista y hemos encontrado cuál es 
el elemento más pequeño de todos. En ese mo- 
mento nos vamos a la línea 1350, 

Línea 1350. Colocamos el menor ele- 
mento en la tabla R$( en la posición A. 

Línea 1360. . Para que dicho elemento 
no vuelva a salir, hacemos que sea igual al ca- 
rácter 255 (M$). Por ello hacemos la asigna- 
ción: LET T$(B)=M$. Con ello conseguimos 
borrar este elemento. 

Línea 1370. Aumentamos en uno el va- 
lor de A. Esto sirve para que cuando encon- 
tremos el siguiente elemento más pequeño de 
la lista, lo podamos colocar a continuación del 
anterior dentro de R$(. 

Línea 1380. Si resulta que A es menor 
O igual que el número de elementos a orde- 
nar, nos volvemos a la línea 1280 para hacer 
otra pasada a la lista en busca del siguiente 
elemento más pequeño. En esta línea y en la 
siguiente volvemos a poner a uno (1) el valor 
de las variables B y C, 

Línea 1390. Si A es mayor que NU (nú- 
mero de elementos a ordenar) entonces signi- 
fica que hemos terminado con la ordenación y 
por tanto tenemos que pasar el valor de la ta- 
bla R$O a T$0. En esta línea comenzamos un 
bucle para que haga esto mismo. 

Línea 1400. Vamos pasando uno a uno 
los elementos de R$O) a T$0. 

Línea 1410. Terminamos el bucle. 

Línea 1420. Y devolvemos el control al 


programa general y que llamó a esta rutina. 
he tenemos la lista ordenada totalmente en 
T$O. 

El siguiente programa (programa 3) uti- 
liza el método llamado SHELL METZNER para 
ordenar una serie de elementos. Este método 


UA 


Y LET N=1 


El algoritmo consiste en realizar las 
comparaciones entre elementos que se en- 
cuentran separados en la lista por una distan- 
cia constante. Esta distancia media, medida en 
elementos nos viene dada por la fórmula: 


L = INT(( 2'N-1 )/2) 


EI pdf pd dd EA aiLYyal DRA 
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está especialmente indicado para aquellas lis- 
tas que sean muy grandes y que no estén or- 
denadas de ninguna manera. Es muy veloz y 
utiliza un algoritmo matemático para ganar ve- 
locidad y para reducir el número de compro- 
baciones necesarias para ordenar una lista. 


senaa 


donde N es un número tal que 2N es superior 
al número de elementos que queremos orde- 
nar, pero 2(N-1) es menor que el número de: 
elementos. Este número (N) es único y lo sa- 
camos haciendo comprobaciones hasta que 
nos encontremos un N que al convertirlo en 
potencia de 2 nos dé un número mayor que el 
número de fichas a ordenar. 
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Por ejemplo, $1 queremos ordenar una 
lista con 30 elementos como: 


49 =32 > 30 


entonces hacemos que la distancia media L 
sea igual a 16, Según esto, a la hora de com- 
parar unos elementos con otros, comparare- 
mos el número 1 con el 17, el número 2 con el 
18, el número 3 con el 19 y así sucesivamente. 
Cuando sea necesario intercambiaremos los 
dos elementos que estamos comparando. Una 
vez que hemos llegado al final y que hemos 
comparado todas las fichas de esta manera, 
reducimos el valor de L a la mitad (8 en nues- 
tro ejemplo) y volvemos a repetir la misma 
operación. Esto se va repitiendo hasta que la 
distancia (L) es nula. En ese instante tendre- 
mos la tabla totalmente ordenada. 

El programa puede funcionar en cual- 
quier ordenador sin realizar ningún cambio. 

La explicación línea a línea es la si- 
guiente: 


Línea 1270. Comenzamos el bucle en- 
tre 1 y 16 dentro del cual vamos a hallar la lon- 
gitud media de la que hemos estado hablando. 

Línea 1280. Hacemos que A sea igual a 
2 elevado al valor de la variable índice del bu- 
cle. 

Línea 1290. Si resulta que A es mayor 
o igual que el número de elementos a ordenar 
entonces es que acabamos de encontrar el ex- 
ponente que buscábamos y hacemos que N 
sea la longitud media que necesitábamos. 
Como ya hemos encontrado dicha longitud, 
nos salimos del bucle y nos vamos a la línea 
1310 para comenzar la ordenación, 

Línea 1300. Aquí termina el bucle. Este 
bucle sólo está comprendido entre 1 y 16 por- 
que es muy raro que un miniordenador (u or- 
denador personal) pueda tener una tabla con 
más de 216 elementos (65535). En el caso de 
que su ordenador le permita tener más y que 
realmente necesite ordenar más de 65535 ele- 
mentos, puede variar el intervalo del bucle en- 
tre 1 y el número que usted crea conveniente, 

Línea 1310. Asignamos a la variable B 
el valor de NU-N. Esta variable será la encar- 
gada de almacenar el número de comparacio- 
nes que hay que hacer en cada pasada. 

Línea 1320. Asignamos a la variable C 
el valor uno (1). Esta variable se encarga de 
contar el número de comparaciones que he- 
mos hecho hasta el momento, 

Línea 1330. Asignamos a la variable nu- 
mérica D el valor que tenga C en ese momen- 
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to. Al principio del programa tendrá valor uno, 
pero según éste se vaya ejecutando, irá varian- 
do de valor. Esta variable nos sirve para sa- 
ber cuál es el primer elemento que tenemos 
que comparar. 


Línea 1340. Asignamos a la variable nu- 
mérica E el valór de D+N. Esta variable nos in- 
dica el otro elemento de la lista que tenemos 
que comparar. Estas dos últimas dos líneas nos 
dicen qué dos elementos van a ser compara- 
dós a continuación. ER] primer elemento está 
al principio de la lista y va aumentando con el 
tiempo, y el segundo elemento está N posicio- 
nes más adelante en la lista. 

Línea 1350. Comparamos los dos ele- 
mentos en cuestión. Si el que está más al prin- 
cipio de la lista es menor o igual que el que 
está más adelante, entonces no hay que inver- 
tir la posición de estos dos elementos. En ese 
caso nos vamos a la línea 1410 paras continuar 
con el elemento siguiente. 


Línea 1360. Si el elemento más cerca- 
no al principio de la lista es mayor que el que 
está más adelante, como tenemos que inter- 
cambiar las posiciones de ambos, hacemos 
que la variable alfanumérica auxiliar A$ tome 
el valor del primero. 

Línea 1370. Colocamos el que está más 
adelante en la lista en la posición del que es- 
taba al principio de ésta. 

Línea 1380. Y colocamos el que estaba 
al principio al final de la lista usando la varia- 
ble A$. 

Línea 1390. A continuación le quitamos 
a la variable D el valor de la variable N. 

Línea 1400. Preguntamos si D es mayor 
o igual que 1. En caso afirmativo nos vamos a 
la línea 1340 para continuar con las comproba- 
ciones. 

Línea 1410. En caso negativo, aumenta- 
moslen uno el contador de pasos C para com- 
probar los dos siguientes elementos de la lista. 

Línea 1420. Si no hemos hecho todavía 
todas las comprobaciones que tenemos que 
hacer nos volvemos a la línea 1330. 

Línea 1430. En caso contrario dividimos 
por dos el valor de N para empezar a ordenar 
desde el nivel inferior. 

Línea 1440. Si N es distinto de cero (0) 
significa que todavía no hemos terminado la 
ordenación con lo que nos vamos a la línea 
1310 para continuar la misma. 

Línea 1450. Si N era cero entonces la ta- 
bla está ordenada y devolvemos el control al 
programa principal. 
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Ml Sistema de medidas 
de audiofrecuencia 


N varios de los proyectos 
presentados se han pro- 
puestos circuitos que reali- 
zan funciones de filtrado de 
señales en el rango de baja 
frecuencia. Con los medios 
de que normalmente se dis- 
pone en el taller de hardwa- 
re normal no es corriente que se encuentre un 
osciloscopio, para verificar que el amplifica- 
dor de filtro cumple las condiciones de dise- 
ño y que deja pasar exactamente la gama de 
frecuencias deseada. Vamos a presentar un 
circuito, que con algunas novedades sobre lo 
que ya se ha descrito, permitirá el análisis y 
control de cualquier sistema de audiofrecuen- 
cia, como podría ser el equipo de alta fideli- 
dad. Podremos ver el efecto de los controles 
de tono o de ecualización gráfica. 

El análisis de un circuito en baja fre- 
cuencia se realiza, generalmente, sometiéndo- 
le a una entrada senoidal de frecuencia cono- 
cida y analizando la respuesta. La salida que 
genera el sistema será también senoidal, de la 
misma frecuencia que la señal de entrada 


Fig. 1. 


Sistema de medidas de audiofrecuencia. 
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pero de mayor amplitud, si es un amplificador, 
o menor, si es un atenuador. Respecto a la for- 
ma de la onda pueden aparecer deformacio- 
nes, que se denominan distorsión y retraso o 
adelanto de la fase. 2 

Mediante el osciloscopio pueden reali- 
zarse medidas muy precisas de la ganancia y 
las deformaciones de la señal, de forma muy 
sencilla, pues la calibración en amplitud y 
tiempo dan de forma cuantificada el valor de 
las magnitudes de interés. Solamente la medi- 
da de distorsión requiere equipo especial, 
para poder apreciar el contenido de armóni- 
cos de la señal de salida o la comparación con 
una señal senoidal patrón que, restada de la 
señal a medir, indique la suma de las compo- 
nentes introducidas por la no linealidad del 
amplificador. 

Utilizando un ordenador es posible rea- 
lizar de forma automática la medida de los 
principales parámetros que identifican el fun- 
cionamiento del circuito, dotándole de las in- 
terfaces apropiadas de conexión al equipo a 
medir. 

Para el análisis de un equipo estereofó- 
nico se realizarán los ensayos de forma inde- 
pendiente en cada canal. 

El conjunto de elementos necesarios 
para montar el sistema puede describirse me- 
diante el esquema de bloques de la figura: 


ALTAVOZ 
y MICRO 


404 


RECTIFÍC. 
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Las funciones realizadas por cada uno 
de los bloques son: 


— Oscilador controlado. Genera la se- 
ñal de referencia que se introducirá en el 
equipo a ensayar. Debe ser de características 
estables y repetibles. También debe dar una 
señal con muy bajo contenido en armónicos, 
para que el análisis sea adecuado. Se realiza 
generalmente con un oscilador controlado por 
tensión, la cual se genera mediante un conver- 
sor analógico/digital. Puede también contro- 
larse manualmente, con objeto de economizar 
la conversión D/A, pero entonces la medida 


no podrá hacerse de forma totalmente automá- 
tica. 


. 


Para cubrir un amplio margen de fre- 
cuencias, se conmuta un elemento del circui- 
to en escalones de un factor conocido, por 
ejemplo, 10, 


— Atenuador. Sirve para seleccionar el 
margen de valores de la señal de ensayo. Pue- 
de hacerse de forma automática, mediante 
conmutadores analógicos o manualmente con 
una resistencia variable. Como las medidas se 
realizan generalmente como variaciones so- 
bre un valor de referencia, no resulta tan im- 
portante que se controle de forma automática. 

— Equipo a probar. Puede ser cual- 
quier sistema electrónico de baja frecuencia 
que disponga de una entrada y una salida. 

— Micrófono, Una de las entradas posi- 
bles de análisis del equipo puede ser la señal 
acústica generada por los altavoces. 


FRECUENCIA 


AL PUERTO DE SALIDA 


RANGO 


Fig. 2. Oscilador controlado. 


— Amplificador. Para adaptar a un ni- 
vel grande, para que los errores de medida 
tengan poca influencia, se amplifica la señal 
en diferentes escalones. 

— Rectificador. La señal a medir se 
rectifica al valor de pico, mediante rectifica- 
dor en doble onda. 

— Filtro. La señal rectificada se filtra 
para quedarnos con la componente continua, 
correspondiente a la amplitud de la señal. 

— Conversor Analógico/Digital. Para 
que el ordenador pueda utilizar el valor de la 
señal, se convierte a digital. Utilizaremos el 
mismo circuito empleado en un tomo anterior, 
que permite la entrada de varias señales ana- 
lógicas. 

— Interfaz. La entrada al ordenador se 
realiza a través de un puerto, direccionado de 
manera similar a los de proyectos anteriores. 

— Ordenador personal. Puede ser cual- 
quiera de los utilizados en los tomos anterio- 
res, pues utilizando la tarjeta de ampliación de 
puertos de entrada/salida el circuito y la pro- 
gramación resultan los mismos para todas las 
máquinas, con las pequeñas excepciones 
mencionadas en cada caso. 


A continuación se describen cada uno 
de los circuitos por separado, mostrándose al 
final un programa ejemplo, que puede servir 
de base para desarrollar cada uno el sistema 
de análisis ajustado a sus necesidades. 


Ml Oscilador controlado 


Es el bloque fundamental del sistema. 
Se realiza mediante un conversor digital/ana- 
lógico que podemos montar según se indica en 
la figura utilizando puertas y una red de resis- 
tencias del tipo R-2R. El número de escalones 
necesarios no es muy elevado, por lo que po- 
demos realizar variaciones según las aplica- 
ciones. En el circuito mostrado se pueden con- 
seguir 32 diferentes niveles para cada valor 
de condensador. Como alternativa al nuevo 
circuito, podríamos utilizar el conversor mos- 
trado en un tomo anterior. 


La señal analógica generada por el con- 
versor y amplificada por el circuito alimenta 
la entrada de control del oscilador. Mediante 
una resistencia variable a la entrada del cir- 
cuito amplificador-sumador, se puede estable- 
cer el nivel de cero del oscilador. 


El circuito oscilador es el ICL8038, que 
posee una gran variedad de formas de opera- 
ción. Utilizado en la forma que se indica per- 
mite la obtención de una señal senoidal de fre- 
cuencia proporcional a la tensión analógica de 
entrada multiplicada por el valor del conden- 
sador que se conecte a la entrada 10. 

Para poder variar el margen de oscila- 
ción se conectan varios condensadores en pa- 
ralelo, pero con una de sus terminales conec- 
tada a un circuito integrado selector de tipo 
7445, Las puertas de este circuito poseen a la 
salida un transistor en colector abierto. Si el 
transistor está sin alimentar, es decir, en cor- 
te, se comporta, para baja señal, como un cir- 
Cuito abierto de muy elevada impedancia. Si 
el transistor se encuentra alimentado se com- 
porta como un cortocircuito. El montaje, por 
tanto, permite la conexión por programa de un 
condensador seleccionable a la entrada del 
oscilador. Los valores de los condensadores 
deberían hacer que pudiéramos generar fre- 
cuencias en el rango de 20 a 20.000 Hz. en sal- 
tos de décadas. Al no poderse cubrir una dé- 
cada con variaciones de tensión es necesario 
utilizar rangos más pequeños. Por supuesto 
que cualquier serie de valores permitirá rea- 
lizar ensayos, pero si se puede explorar de 
forma regular, el análisis será más fácil. En 
cualquier caso, como los condensadores serán 
de tolerancia del 5-10% será necesario reali- 
zar una calibración para cada rango y el ajus- 
te con condensadores en paralelo hasta con- 
seguir que en cada posición la frecuencia ge- 
nerada guarde una relación constante. 

Los rangos recomendables son los múl- 
tiplos de 1, 2 y 5. También con saltos en múl- 


tiplos de 3 podremos cubrir el espectro nece- 
sario. 

La señal de control del oscilador debe 
estar comprendida entre 8 y 12 voltios, por lo 
que la resistencia variable conectada a la en- 
trada positiva del amplificador permite ajus- 
tar el nivel apropiado para la frecuencia más 
baja en cada rango. El margen de variación es 
detal. 

Los amplificadores operacionales se ali- 
mentarán con tensiones de +12 y -12 voltios. 
Los circuitos lógicos con +5 voltios. 


El Atenuador , 


SALIDA 


OSCILADOR 420 AL EQUIPO 


CONTROL 


Fig. 3. Atenuador. 


El sistema conviene que sea lo más ge- 
neral posible, para que podamos realizar me- 
didas en todos los circuitos que sean de las ca- 
racterísticas indicadas. Para ello la señal de 
alimentación al circuito deberá poder variar- 
se dentro de un amplio rango. En la figura se 
muestra un circuito de control manual, que es 
simplemente una resistencia variable conec- 
tada a la salida del oscilador y que calibrare- 
mos con un pequeño dial. 

Se muestra también una posible forma 
de realizar un atenuador controlado por pro- 
grama, para un sistema totalmente automático. 
Utiliza conmutadores analógicos, de tipo 4066, 
que varían el valor de la resistencia conecta- 
da y, por tanto, el de la señal de salida del ate- 
nuador. 


Ml Equipo a probar 


SALIDA 


Fig. 4. Conexión del equipo a probar. 
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Para poder probar diferentes equipos 
montaremos un panel con los conectores de la 
señal de salida y de la entrada de micrófono 
o auxiliar. De particular importancia es la co- 
nexión de la masa. En un amplificador típico 
las señales de entrada y salida son de valores 
muy diferentes. La señal de entrada puede ser 
de unos pocos milivoltios, mientras que la de 
salida puede ser de decenas de voltios. La 
corriente que puede circular por la carga o el 
altavoz de salida puede ser de algunos ampe- 
rios, en cuyo caso, la más mínima resistencia 
en los circuitos comunes a la entrada y la sa- 
lida puede producir realimentaciones, que 
pueden resultar desastrosas para el equipo. 
Para estos casos, conviene realizar las medi- 
das con circuitos aislados. Si la señal de sali- 
da se toma de los altavoces mediante un mi- 
crófono, el problema desaparece, aunque en- 
tonces hay que considerar a dicho micrófono 
como parte integrante del sistema. 

El conector más conveniente para la co- 
nexión del equipo a ensayar es el de tipo RCA, 
empleado en muchos equipos de audio para 
las entradas de fono y auxiliar. Es además muy 
económico. 


Mi Micrófono 


Se utiliza como elemento captador de la 
señal amplificada por el sistema, cuando el 
equipo a ensayar es un amplificador de audio 
que alimenta a un conjunto de altavoces. Con- 
viene que sea de características muy lineales 
y de ancho de banda mayor que el del siste- 
ma. Los micros actuales de tipo “electret” son 
económicos y de características idóneas para 
estos ensayos. Se colocará en las proximida- 
des del altavoz, para que la influencia del re- 
cinto donde realicemos el ensayo sea la míni- 
ma. 

La otra entrada se usará para conexión 
de equipos a ensayar directamente con señal 
eléctrica. 


Amplificador 


2710 K 


Fig. 5. Armplificador. 


La señal suministrada por el micrófono 
será muy pequeña para poder analizarla di- 
rectamente por el conversor analógico/digi- 
tal. Es necesario amplificarla hasta niveles 
adecuados, superiores a 3 voltios. Se consigue 
la amplificación suficiente con una etapa con 
amplificador operacional. Conviene también 
disponer un atenuador variable, para ajustar 
el nivel de amplificación. Es importante, sin 
embargo, no modificar la posición del atenua- 
dor, una vez que se verifique que podemos 
trabajar dentro del rango de tensiones ade- 
cuado. Durante un ensayo completo las posi- 
ciones de los atenuadores deberán estar en 
posición fija. 


Ml Rectificador 


Fig. 6. Circuito recitificador. 


La señal amplificada se filtra en doble 
onda, mediante un par de amplificadores ope- 
racionales montados en rectificador. El primer 
amplificador rectifica la señal en media onda, 
mientras que el segundo suma la señal de en- 
trada a la señal rectificada, dando a la salida 
el valor absoluto de la entrada. 


MA Filtro 


15 K 3 LM741 


Fig. 7. Circuito filtro, 


La señal rectificada se filtra con una 
etapa simple de resistencia condensador, que 


dará el valor medio de la señal. Se amplifica 
mediante una etapa de amplificador operacio- 
nal. 


ADC$8$8+5 11 
NN a M 


1 
Fig. 8. Circuito conversor analógico/digital. 


El circuito a utilizar es el mismo emplea- 
do en la tarjeta de adquisición de señales ana- 
lógicas, descrito en un tomo anterior. Utiliza un 
circuito integrado conversor, con ocho entra- 
das analógicas. Hay que seleccionar la direc- 
ción de la entrada que presenta la señal a me- 
dir. La conversión puede comenzarse contro- 
lada por programa o de forma continua. En el 


PUERTOS SALIDA 


BUS DATOS 


ACTIVACION 


Fig. 9. Circuitos de interfaz. 


CONTROL 
RANGOS 
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SELECCION 
CANAL 


CONVERSOR A/D 


E Conversor analógico /digital 


AL PUERTO 
DE ENTRADA 0 


AL PUERTO 
DE SALIDA 1 


* 


O AL PUERTO DE ENTRADA 1 
ESTADO 
O AL PUERTO DE SALIDA 1 


circuito mostrado se inicia por programa, al 
direccionar el canal a medir. La señal de es- 
tado indica cuándo la conversión ha terminado. 


El valor de la señal convertida se lee 
por un puerto de entrada. 


Ml Interfaz 


PUERTOS ENTRADA 


DEL CONVERSOR 
A/D 


——+—————— 
BIT ESTADO 
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Los circuitos de interfaz son los mismos 
que los mostrados en la tarjeta de ampliación 
de puertos de entrada/salida. Se generan los 
pulsos de selección de los puertos mediante 
decodificadores, para conseguir las direccio- 
nes SELWO y SELW1 para los puertos de sali- 
da y SELRO y SELR] para los de lectura. 

Los puertos de salida contienen los bits 
de control y de selección de la frecuencia de 
acuerdo con la siguiente lista: 

Puerto de salida 0: 


— DSA0-DA4: Valor de la frecuencia. 
Salida al conversor D/A de control de la fre- 
cuencia. 

— DSA5-DA7: Rango de frecuencias. 
Selección de condensador. 


Puerto de salida 1: 
— DSBO: Activación del conversor A/D. 
Puerto de entrada 0: 


— DEAO-DEA7: Entrada del conversor 
A/D. 


Puerto de entrada 1: 


— DEBO: Bit de estado del conversor 
A/D. 


3 Consideraciones prácticas 


Todos los amplificadores operacionales 
pueden ser del tipo LM741, pues las frecuen- 
cias empleadas son bajas. Es recomendable el 
empleo de las versiones integradas que inclu- 
yen 4 circuitos iguales en un solo chip. Si se 
deséa extender el rango de frecuencias a ana- 
lizar, será necesrio sustituir el 741 por uno de 
mayor frecuencia de corte. 

Las alimentaciones empleadas son +5, 
+12 y -12 voltios. Deberán ser estabilizadas y 
desacopladas con condensadores de 1 micro 
y 0.1 micro en las proximidades de los circui- 
tos integrados. 

El montaje puede realizarse en circuito 
de tiras, teniendo especial cuidado en la par- 


REM EN EL. IBM PC 
DEFINT A-Z 


100 REM DEFINICION DE PUERTOS 
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te de señal de bajo nivel y conexión al micró- 
fono, que deberían ir apantalladas. 

Si se utiliza conectado a la tarjeta de 
ampliación de puertos de entrada/salida, el 
panel de conexiones puede fijarse directa- 
mente sobre la tarjeta. Si se monta en tarjeta 
a introducir en el ordenador, el panel de co- 
nexiones se montará en el exterior, uniendo 
las señales de bajo nivel mediante cable apan- 
tallado. 

El ajuste del circuito requiere el ensayo 
paso a paso de un circuito conocido, que pue- 
de ser simplemente un filtro pasivo con resis- 
tencia condensador. Ejecutando el programa 
ejemplo deberemos obtener una curva de ca- 
racterísticas planas para la conexión directa y 
otra de ganancia decreciente con la frecuencia, 
para un filtro paso bajo. Podemos modificar el 
programa para ejercitar la producción de 
cada frecuencia y la medida en condiciones 
estáticas de los valores en todos los puntos del 
circuito. Solamente cuando hayamos verifica- 
do el barrido completo, podremos analizar un 
circuito real. 


dl Programa de ejemplo 


Para la utilización de la tarjeta de inter- 
faz es necesario programar cada operación y 
almacenar los resultados obtenidos para su 
presentación. Mediante un sencillo menú se 
selecciona la función a ejecutar. En cada fun- 
ción se activan los puertos necesarios para la 
producción de la señal senoidal de prueba, 
dentro del rango de frecuencias del ensayo, En 
el ejemplo se muestra el caso de análisis en el 
rango completo de frecuencias desde 20 a 
20.000 Hz, en tres décadas, con saltos corres- 
pondientes a los múltiplos de 1, 2 y 5. Se su- 
pone que se han ajustado los condensadores 
para que se verifiquen los valores de las fre- 
cuencias necesarias. 

La lectura del valor analógico en cada 
medida se efectúa un número repetido de ve- 
ces, con objeto de filtrar el ruido. El número 
de repeticiones puede variarse mediante la 
variable NMAX, 


REM XA XA AA A A A A 
REM PROGRAMA DE ANALISIS DE CIRCUITOS AUDIOFRECUENCIA 

REMO A A A A E AA A AR A 
REM UTILIZA LA TARJETA DE AMPLIACION DE PUERTOS 


RX xxx x*x 


REMO XX A A A AA A A A A A AX A O E 


DIM 6(5300) 

PDATOS=8H201: 
PCONTROL==%H201 : 
PSELECCION=3H203: 


REM DATOS - SELRO 
REM RANGO Y FRECUENCIA — SELWO 
REM NUMERO DE CANAL — SELW1 


110 PESTADO=2H203: REM ESTADO DEL CONVERSOR - SELR1 

120 REPOSO=0 

128 KEY OFF 

129 CELS 

130 FPRINT ” PROGRAMA DE ANALISIS DE CIRCUITOS AUDIOFRECUENCIA ” 

140 PRINT 

143 PRINT " VERIFIQUE LAS CONEXIONES DE ENTRADA Y SALIDA " 

147 PRINT : 

150 PRINT " SELECCIONE OPCION: " 

160 PRINT 

170 PRINT " 1.-EFECTUAR MEDIDAS” 

190 PRINT 

200 PRINT ” 2.—PRESENTAR RESULTADOS" 

210 PRINT 

220 PRINT " 3.—TERMINAR" 

260 PRINT 

270 INPUT "OPCION=":0OPCION ph 

280 IF OPCION<i OR OFPCION>3 THEN BEEP: GOTO 129 " 

290 ON OPCION GOSUB 1000.2000, 3000 

295 IF OPCION=3 THEN END 

300 GOTO 129 

990 REM Xx * xk EFECTUAR MEDIDAS X * xk k 

1000 CLS: 

1010 PRINT " MEDIDAS DE GANANCIA” 

1020 PRINT 

1170 REM ESTABLECE RANGO Y FRECUENCIA 

1200 NMAX=8 

1210 FOR 1=0 TO 7: REM RANGO 

1220 FOR J=0 TO 31: REM FRECUENCIA 

1230 OUT PCONTROL., (1+J) 

1235 A=O 

1240 FOR K=1 TO NMAX: REM MEDIDA 

1250 ' OUT PSELECCION,O: REM ACTIVA CONVERSION 

1260 A=A+INP (PDATOS) 

1270 NEXT K 

1280 G(1K32+3)=A/NMAX 

1290 NEXT J 

1300 NEXT 1 

1310 PRINT "FIN DE TOMA DE DATOS" 

1500 RETURN 

1990 REM k kk k PRESENTA RESULTADOS *k xk Xx k 

2000 ULS 

2010 PRINT "VECTOR DE GANANCIAS” 

2020 PRINT 

2030 FOR I=1 TO 328 

2240 PRINT "I="y11" G=":G(1) n= 

2300 NEXT 1 + 

2310 RETURN 1 o 

2990 REM Xx * kx FUNCION DE PUESTA EN REPOSO kk k xk e 

3000 REM DEJA LA TARJETA EN REPDSO lindo 

3010 OUT PCONTROL. REPOSO AS 

3100 RETURN e O 
10 IN 


Conclusiones 


Se ha mostrado un circuito, de cierta 
complejidad, pero que utiliza módulos que ya 
hemos empleado en proyectos anteriores. Tie- 
ne la particularidad de que nos permite reali- 
zar medidas en sistemas reales de forma en- 
teramente automática, para obtener la curva 
característica de ganancia en función de la 
frecuencia. Se suele denominar a esta curva 
diagrama de Bode, pues es el nombre del que 
realizó estudios de la influencia de dicha cur- 
va en la estabilidad de sistemas realimenta- 


dos. La representación gráfica de dicha carac 
terística es importante para conocer lan pros 
taciones de los circuitos y determinar de for 
ma empírica los resultados de diseños teór! 
cos, o de la calidad esperable en la reproduc- 
ción de señales acústicas, 

Como posibles variaciones a realizar on 
el circuito para mejorar sus caractorintican po 
dríamos indicar: 


— Control del oscilador con un conver 
sor D/A en cirouito integrado, en lugar de roa 
lizarlo con puertas y red de resistencias, Con 
el circuito DACOBO! ye podrian conseguir 256 
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valores de frecuencia, para cada rango de 
condensadores, con aumento en la resolución 
de la medida. | 

— Mayor número de condensadores, 
para aumentar el rango de frecuencias de ex- 
ploración, hasta el límite del oscilador contro- 
lado por tensión. 

— Selección de rectificación de la se- 
ñal al valor medio, de pico o eficaz, mediante 
los circuitos adecuados, para tener mayor co- 
nicimiento de las posibles deformaciones de 
la señal. 
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— Conversor A/D más rápido, para po- 
der realizar muestreo de la señal y poder ana- 
lizar la forma de onda producida. Con la reso- 
lución adecuada podríamos hacer digitalmen- 
te el análisis del contenido en armónicos de la 
señal. En un próximo tomo indicaremos algu- 
nas de las posibilidades de tratamiento digital 
de señales, mediante nuestro ordenador. 

— Conmutación a dos canales, para po- 
der realizar ensayos en equipos estéreo o en 
dos equipos iguales a la vez, permitiendo el 
ajuste o calibración "en tiempo real”. 


APRENDER CON EL ORDENADOR HIS 


NATURALEZA 
Y TECNOLOGIA 


Ñ Asociación de resistencias 


STE programa calcula la re- 
sistencia equivalente de un 
circuito formado por resis- 
tencias. Complementaria- 
mente calcula la intensidad 
que circula por cada una de 
las resistencias. 

Antes de empezar a 
introducir datos en el programa es necesario 
configurar el circuito por bloques. ¿Qué es un 
bloque? Un bloque lo constituye cualquier aso- 
ciación elemental de resistencias, es decir, 
cualquier grupo de resistencias conectadas 
únicamente en serie o únicamente en parale- 


lo. Después de introducir las resistencias de 
cada bloque, el programa preguntará cómo 
están relacionados los distintos bloques (en se- 
rie o en paralelo). 

Una vez que se impriman por pantalla 
los resultados tanto de la resistencia equiva: 
lente del circuito como de la resistencia equi 
valente de cada bloque, el programa pregun 
tará cuál es el valor en voltios del generador 
de corriente continua que está suministrando 
tensión al circuito. Este dato es necesario para 
conocer qué intensidad circula por cada una 
de las partes de nuestro circuito, Finalmente 
el programa imprimirá el valor de la inten 
dad en cada una de las resistencias. 

El siguiente ejemplo ilustra todo lo ante 
rior: 


Fig. 1. 
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APRENDER CON EL ORDENADOR WWA 


DE CUANTOS BLOQUES CONSTA EL. 
BLOQUE 1 

ASOCIACION (S)ERIE O (P)ARALELO ? 5 

DE CUANTAS RESISTENCIAS CONSTA 7? 2 

INTRODUZCA EL VALOR EN OHMIOS 

73 

149 

BLOQUE 2 

ASOCIACION (S)ERIE O (P)ARALELO 7? $S 

DE CUANTAS RESISTENCIAS CONSTA ? 1 

INTRODUZCA EL VALOR EN OHMIOS 

74 

BLOQUE 3 

ASOCIACION (S)ERIE O (P)ARALELO ? P 

DE CUANTAS RESISTENCIAS CONSTA-? 2 

INTRODUZCA EL VALOR EN OHMIOS 

2h 

?2 

RELACION ENTRE LOS DISTINTOS BLOQUES 
INTRODUCIR RELACION ENTRE BLOQUE ANTERIOR Y EL 


CIRCUITO? 3 


BLOQUE 


INTRODUCIR RELACION ENTRE BLOQUE ANTERIOR Y EL BLOQUE 
RESISTENCIA POR BLOQUES 


BLOQUE 41 = 8 
BLOQUE 2 = 4 0HM, 

BLOQUE 3 = 1.5 0HM, 

LA RESISTENCIA TOTAL ES 4,166667 OHM. 

INTRODUZCA EL VALOR DEL GENERADOR DE CORRIENTE CONTINUA ? 5 
LA INTENSIDAD TOTAL QUE CIRCULA POR EL CIRCUITO ES 1.2 AMP. 
INTENSIDAD TOTAL DE CADA BLOQUE 

BLOQUE 1= ,4 AMP. 

BLOQUE 2 = .,8 AMP. 

BLOQUE 3 = 1,2 AMP. 

INTENSIDAD POR RESISTENCIA 


OHM. 


BLOQUE 


R 4 =< 
R2=5 


BLOQUE 
R 3 =- 
BLOQUE 


R4=6 


RS 


A 


1 
OHM. 1 
0H”. 
OHM. 

3 
OHM. 
OHM. 


AMP. 
AMP. 


amP. 


amp. 
AanP., 


MAD REM ra RRE EE RIE IR 


sl 20 REM + TITULO:ASOCIACION DE RESISTENCIAS +* 
30 REM ++ VERSION: 1.0 * 
40 REM + PARA IBM-PC, MSX, AMSTRAD + 
50 REM + COMMODORE, SPECTRUM * 


do 
100 REM A pi ei 


110 REM + INICIALIZACION + 
120 REM aaa OOOO RE IA 
130 LET R=0 

140 LET T=0 


150 DIM R(50) 

160 INPUT"DE CUANTOS BLOQUES CONSTA EL. - CIRCUITO “iN 
170 DIM B(N,2) 

180 DIM B+$(N) 

190 DIM T(N) 


200 DIM A(N) ) 
300 REM PON OEDRORLRADLRERDRRDONA 
310 REM * DATOS DE LOS BLOQUES E, LA RE 


320 REM ii ai aiii 
330 FOR I=1 TON L 

340 PRINT'"BLOQUE "51. 

350 -INPUT"ASOCIACION (S)ERIE. o (PARALELO. mas 

360 IF PENSO AND asompn THEN PRINT"PULSAR 9% 0: 


f 


*P'":GOTO 350 


370 
380 
390 
400 
410 
420 
2430 
440 
450 
460 
470 
480 


490 
500 
510 
520 
530 
600 
610 
620 
630 
640 
650 
660 
700 
7:10 
720 
730 
740 
7530 
800 
810 
820 
830 
840 
850 
860 
870 
900 
9:10 
2920 
930 
240 
950 
260 
970 
280 
990 


IF A$="S" THEN GOSUB 1000 

1F-A$="P'" THEN GOSUB 1210 

NEXT 1 

REM de RRE RR RAI RA A 

REM + RELACION ENTRE LOS BLOQUES + 

REM IR RR AR RRA RIERA MA IRA e 

PRINT'"RELACION ENTRE LOS DISTINTOS BLOQUES" 

LET T=B(1,2) . 

LET T(1)=T 

IF N=4 THEN GOTO 610 

FOR 1=2 TO N 

PRINT* INTRODUCIR RELACION ENTRE BLOQUE ANTERIOR Y EL BLOQUE via 
“ ”s” 0 ”p” “La 

INPUT AS 1 ' 

1F -A$<>"S" AND A$<>"P" THEN PRINT"PULSAR 'S* O 'P'":GOTO 480 

IF A$="S" THEN GOSUB 1530 p 

IF A$="P" THEN GOSUB 1630 


NEXT 1 

REM Ae RRE RAR RR DIRE AR 

REM * RESISTENCIA POR BLOQUES A 

REM RA EI RARA HR RI RR A 
PRINT"RESISTENCIA POR BLOQUES" , A 
FOR 1=1 TO N 

PRINT"BLOQUE "515" = "¿B(1,2)7" OHM." 

NEXT 1 A 
REM ea EIA III II IR IA 

REM * RESISTENCIA TOTAL ud 

REM RIIIE RR RIMA RIE AR MR A 


PRINT"LA RESISTENCIA TOTAL ES ";T;" OHM." 
INPUT"INTRODUZCA EL VALOR DEL GENERADOR DE CORRIENTE CONTINUA "sv 


PRINT'LA INTENSIDAD TOTAL QUE CIRCULA POR EL CIRCUITO ES “¿V/T;" AMP." 
O E AO 


REM * INTENSIDAD POR BLOQUES * 
REM 0 RARA 
GOSUB 17:10 

PRINT"INTENSIDAD TOTAL DE CADA BLOQUE" 


FOR 1I=1 TD N 

PRINT"BLOQUE "315" = ";A(L);" AMP.“ 

NEXT 1 

O A 
REM 3 INTENSIDAD POR RESISTENCIA * 
O E AN 
PRINT" INTENSIDAD POR RESISTENCIA" 

LET X=0 

FOR 1=1 TO N 

IF B$(1)="S" THEN GOSUB 2200 

IF B$(1)="P" THEN GOSUB 2100 

NEXT 1 

END 


1000 REM eee Res IRE IE 
1010 REM + BLOQUE SERIE + 
1020 REM eses IRE INR ERITREA 


1030 


LET Bs$(I)="S" 


1040 INPUT"DE CUANTAS RESISTENCIAS CONSTA "¿B(1,1) 


1050 


GOSUB 1430 


1100. REM. 4 II REA RIA A e e 


1110 


REM %* CALCULO DE LA RESISTENCIA BLOQUE SERIE * 


1420 REM base RA REI IRA 


1130 


LET B(1,2)=0 


1140 FOR M=1 TO B(1,1) 


1150 LET B(1,2)=B(1,2)+R(R+1-M) 

1160 NEXT M 

1170 RETURN 

1200 REM RARO A RE RIOR RI IEA 
1210 REM * BLOQUE PARALELO + 


1220 REM ese RRA RR AIR MIA 
1230 LET B$(1)="P" 

1240 INPUT"DE CUANTAS RESISTENCIAS CONSTA "yB(1,1) 
1250 GOSUB 1430 

1300 REM demente dede 1d RIE RIERA IR ER 
1310 REM * CALCULO DE LA RESISTENCIA BLOQUE PARA. + 
1320 REM seme A AIR RR TRI MR MR 
1330 LET B(1,2)=R(R) 

1340 IF B(1,1)=1 THEN GOTO 1380 

1350 FOR M=2 TO' B(1,1) 

1360 LET B(1,2)=B(1,2)*R(R+1-M)/(B(1,2)+R(R++M)) 


1370 


NEXT M 


1380 RETURN 
1400 REM rete dt dd 20 2 HD A RAR IER E IE 


1410 


REM * DATOS DE LAS RESISTENCIAS Ñ * 


1420 REM detect REM DAMIAN IR 


1430 


PRINT" INTRODUZCA EL. VALOR EN OHMIOS" 


1440 FOR K=1 TO B(1,1) 
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dee ngs mi 
+1 


ES: 
MD 

ua! e Po 
ALA 1610 
0: 1620 
BO 1630 
Ne 1640 
S 1650 
mr 1660 
q he 1670 
A 1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1900 
1940 
1920 
1930 
1940 
2000 
2010 
2020 
2030 
2040 
2050 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


* 


MATEMATICAS Para los determinantes de orden dos, 
MM Cálculo de determinantes los calcula sin utilizar ninguna fórmula recursi- 


Este programa calcula determinantes Con los demás determinantes se esta- 
de orden menor o igual que cuatro. Para de-  blece el proceso recursivo que consiste en ir 
terminantes de orden mayor sería necesario dividiendo el determinante en adjuntos de or- 
programar procesos recursivos con las rutinas den tres, e ir multiplicándolos por su menor 
existentes ya en este programa. complementario. 


- > 1800 Mi A 


EE. 
CA (m="s" 
meo 0 LET T=T+B(1,2) 
O LET T(1>=T 


O Rd 
K 


REM * ASOCIACION BLOQUES SERIE 
En A A 


O- RETURN 

REM 4er ee ER IE RRE TE RM ARRE DERE RI AAA 
REM * ASOCIACION BLOQUES PARALELO + 
REM Fe IDR RETIRAR A AE 
REM 4 

LET T$(I>)="P" 

LET T=T*B(1,2)/(T+B(1,2)) - 

LET T(1)=T : » 
RETURN 

A 
REM * CALCULO DE LA INTENSIDAD POR BLOQUES * 
REM Ae A III RIIIE 
LET A=V/T 

IF N=1 THEN GOTO 1790 

FOR I=N TO 2 STEP -1 Ñ 

IF T$(1)="S" THEN GOSUB 1930 

IF T$(I)="P" THEN GOSUB 2030 


NEXT I 

LET A(1)=A 

RETURN 
li 
REM * INTENSIDAD SERIE * 
REM RAR IIED TIRAR 
LET A(I)=A 

RETURN 

REM ses dE REIR RAR RRA 
REM * INTENSIDAD PARALELO + 


REM eee A II HIRE REI IEA 

LET A(I)=A*T(1)/B(1,2) o A 
LET A=A*T(1)/T(1-1) 

RETURN 

REM 3H MR RE RIE RR REITER RAE 

REM * INTENSIDAD POR RESISTENCIA PARALELO * 

REM At HA A RRE RIERA RARE A 
PRINT"BLOQUE ";1 

FOR J=X+1 TO X+B(1,1) 


PRINTUR"3J3"="3R(J)5" OHM. IMjJjU="5ACIRABCL, 2)/R(J);" AMP." 
NEXT J 

LET X=X+B(1,1) 

RETURN 

REM ema dt det RAE RA PEER RIÓ PARE RR AER A AA 

REM * INTENSIDAD POR RESISTENCIA SERIE + 


A iS 
PRINT'“BLOQUE ";1 

FOR J=X+1 TO X+B(1,1) 

PRINT "RUI U=" ROI" OHM. IM pd SM GACI)5" AMP." 
NEXT J 

LET X=X+B(1,1) 

RETURN 


dada su sencillez, el programa directamente 


va. 
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1D REM eat HR RIIIE IR 


20 REM + TITULO:CALCULO DE DETERMINANTES + 
30 REM + VERSION:2.0D * 
40 REM + , PARA IBM-PC, MSX, AMSTRAD, + 
50 REM + COMMODORE, SPECTRUM + 


60 REM Aer ARE REIR MRE III IR RRA 

100 REM eee ARI AI III 

110 REM + ORDEN DEL DETERMINANTE * 

120 REM mee RI RIIIE III A 

130 INPUT"ORDEN DEL DETERMINANTE (SOLO HASTA CUATRO) "yO 
140 IF 0>4 OR 0<2 THEN PRINT“"SOLO HASTA ORDEN CUATRO":GOTO 130 
150 DIM X(0,0),Y(0,0),A(0,0),Z(0) 

20D REM 34 IA IR 

210 REM +* VALORES DEL DETERMINANTE * 

A AA 

230 PRINT"INTRODUZCA LOS VALORES DEL DETERMINANTE" 

240 FOR F=1 TO O 

250 FOR C=1 TO O 

260 PRINT"FILA “;F; 

270 PRINT"COLUMNA "sC;5 | 
280 INPUT" ";X(F,C) ” ¿ 
290 NEXT € 

300 NEXT F +: í 
310 IF 0>2 THEN GOTO 450 4 
400 REM dataset ed de II RR E IR RRA 

410 REM * DETERMINANTE DE ORDEN 2 * 

A A 

430 LET R=X(4,1)*X(2,2)-X(1,2)*X(2,1) 

440 GOTO 1030 

450 1F 0>3 THEN GOTO 710 

500 REM dee MR RA A RR A IA 

510 REM + DETERMINANTE DE ORDEN 3 * 

520 REM dee IE RAE RI RR RRA II 

530 FOR I=1 TO O 

540 FOR J=1 TO O 

3550 LET,A(1,J)=X(1,J) 

560 NEXT J 

570 NEXT 1 

580 GOSUB 1210 

590 LET R=P 

600 GOTO 1030 

700 REM eee IIA IRIARTE AA 

710 REM * DETERMINANTE DE ORDEN 4 * 

720 REM 4 IR RI RIERA 

730 FOR D=1 TO O 

740 GOSUB: 1310 

750 FOR F=2 TO O 

760 FOR C=1 TO O 

770 LET Y(F-1,C)=Y(F,C) 

780 NEXT C 

790 NEXT F 

800 FOR F=1 TO 0-1 

810 FOR C=1 TO 0-1 3 

820 IF D<>0 THEN Y(F,C)=Y(F,C+1) 

830 NEXT € 

840 NEXT F 

850 GOSUB 1110 

860 GOSUB 1210 

870 LET Z(D>=P 

880 NEXT D 

890 FOR F=1 TO O 

900 LET R=R+(-4)*%(14+1)*Z(F)*X(1,F) 


910 NEXT F 
1000 REM desert IR A E IRA ARA 
1010 REM * SALIDA DEL RESULTADO * 


1020 REM dere e IR IE RRA IRA 
1030 PRINT"EL VALOR DEL DETERMINANTE ES "¿R 


1040 END 
1100 REM seee AIR III RR 
1110 REM * CALCULO DE ADJUNTOS DE ORDEN 3 $ 


1120 REM sereno d IE REIRARRA 
1130 FOR 1=1 TO 0-1 

1140 FOR J=1 TO 0-1 

1150 LET A(1I,J)=Y(1,J) 

1160 NEXT J 

1170 NEXT 1 

1180 RETURN 

1200 REM dee ee AAA IE AIR IRE AARRA AIAR 
1210 REM * CALCULO DEL DETERMINANTE DE ORDEN 3 + 
1220 REM semen ae RI RE RI IRE AII ARIRRR 
1230 LET P=A(1,1)*(A(2,2)*4(3,3)-4(2,3)+A(3,2)) 
1240 LET P=P-A8(1,2)*(A(2,1)*A(3,3)-A(2,3)*A(3,1)) 
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1250 LET P=P+4(1,3*(4(2, 1)1A(3,2)-4(2,2)*A(3,1)) 


1260 RETURN 
1300 REM 44423422000 H HA EM e RRA RR RIM IA 
1310 REM * DETERMIMANTE AUXILIAR 2 * 


1320 REM +emeiede st de d64  lMHJ MRIRAA 
1330 FOR I=1 TO O 

1340 FOR C=1 TO O 

1350 LET Y(1,J)=X(1,J) 

1360 NEXT y 

1370 NEXT 1 

1380 RETURN 


introducida la solución indicará si ésta es o no 
correcta e imprimirá las tres ciudades conte- 
nidas en su pequeña base de datos. Habrá 
diez preguntas, al final de las cuales el orde- 
nador imprimirá el número de aciertos obteni- 
dos. 


SOCIEDAD 
Mi Ciudades de España 


Es curioso comprobar que, frecuente- 


mente, nuestro conocimiento de la geografía El desarrollo del programa es bastante 


de España se reduce a nuestro ámbito local, o 
a lo sumo, a las capitales de provincia más im- 
portantes. 

El programa contiene una base de da- 


sencillo. Consta de una subrutina para leer 
los datos de la base de datos, contenidos en lí- 
neas 'DATA del final del programa, y de un 
bloque principal que se encarga de elegir al 


tos con tres de las ciudades más importantes 
de cada una de las provincias españolas. 
Cada vez que se ejecute, el programa 
pedirá el nombre de una ciudad distinta de la 
capital, de la provincia que pregunte. Una vez 


azar una provincia y de comprobar que la res- 
puesta sea correcta. 

Esperamos que este programa te sirva 
para conocer un poco mejor la geografía de 
España. 


10 REM Heat dd dede de DE HH MD DAA AIM AAA 


20 REM + TITULO:CIUDADES DE ESPAÑA ea 

30 REM * VERSION: 41.0 * 

40 REM + PARA IBM-PC, AMSTRAD, MSX + 

60 REM Feet 2 A RAI MA AMA AAA 

100 REM 34d at 0414 dd 1d dl RRA RARA 
110 REM * INTRODUCCION * 
A O 
130 CLS 


140 PRINT"CON ESTE PROGRAMA SE PRETENDE DAR" 
150 PRINT"UN REPASO A SUS CONOCIMIENTOS" 
160 PRINT"DE GEOGRAFIA. CONCRETAMENTE SE LE" 
170 PRINT"PREGUNTARA EL NOMBRE DE ALGUNA" 
/ 180 PRINT"CIUDAD DISTINTA DE LA CAPITAL DE" 
190 PRINT"DIEZ PROVINCIAS ESPAÑOLAS" 
200 REM 2ese3e dea sede 0 A RIIIE 
p 210 REM + RUTINA DE CARGA DE DATOS + 
Y 220 REM ee 3404262 RE DM PRE RA MARI RNE 
230 DIM A$(50,4) 
240 FOR 1=1 TO 50 
250 FOR J=1 TO 4 
260 READ A$(1,J) 


270 NEXT J 
280 NEXT 1 
300 REM 4444424244 HI ME MERMA REIR 
310 REM * RUTINA GENERAL + 


320 REM Had e ME  DÓ  EDRREDRE MRDRRIAARA 
330 LET P=0 

340 LET S=0 

350 FOR I=1 TO 10 / 

360 LET A=INT(RND(1)*50)+1 

370 PRINT"¿CUAL ES UNA CIUDAD DE "sA$(8,1);5" "; 
380 INPUT R$ 

390 FOR J=2 TO 4 

400 IF R$=A$(4,J) THEN P=1 

410 NEXT. J 

420 IF P=1 THEN PRINT"MUY BIEN":LET S=5+1 

430 IF P=0 THEN PRINT'"NO ES CORRECTO" 

440 LET P=0 

450 PRINT"LAS SOLUCIONES POSIBLES SON:" 
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460 FOR J=2 TO 4 

470 PRINT A$(A,J) 

480 NEXT J 

2490 NEXT I 

500 PRINT"HAS ACERTADO "; 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
4110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


REM * DATOS 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
1280 DATA 
1290 DATA 
13001DATA 
1310 DATA 
1320 DATA 
1330 DATA 
1340 DATA 
1350 DATA 
1360 DATA 
1370 DATA 
1380 DATA 
1390 DATA 
1400 DATA 
1410 DATA 
1420 DATA 
1430 DATA 
1440 DATA 
1450 DATA 
1460 DATA 
1470 DATA 
1480 DATA 
1490 DATA 
1500 DATA 
1510 DATA 
13520 DATA 


Modificaciones para otros ordenadores 
SPECTRUM 

LINEA 230 DIM A$(50,4,15) 

TODOS LOS DATOS DE LAS LINEAS 1030 A 


LA 1520 DEBERAN IR ENTRE 
COMILLAS. 


PARA LOS MAS JOVENES 
El Rebote 


Con este programa se pretende simu- 
lar el rebote de un móvil al chocar contra los 


. 
, 


45 


VECES" 


REM Are RA DR RNA RR RINA AA 


+ 


REM 70 RIM IM IIED REDEE RAR TERRIER RAI RSE 


LA CORUÑA, SANTIAGO, BETANZOS, FERROL 
PONTEVEDRA, VIGO, TUY, CAMBADOS 
LUGO,MONFORTE, BECERREA, SARRIA 

ORENSE, GINZO,RIBADAVIA, VERIN 

ASTURIAS, GIJON,MIERES,CANGAS 

CANTABRIA, TORRELAVEGA, LAREDO, SAN VICENTE 
VIZCAYA, DURANGO, GUERNICA, SESTAO 
GUIPUZCOA, IRUN, TOLOSA, VERGARA 

ALAVA, LAGUARDIA, AMURRIO, SALVATIERRA 
NAVARRA, TAFALLA,ESTELLA, AOIZ 

LA RIOJA,NAJERA, CALAHORRA, SANTO DOMINGO e 
HUESCA, BARBASTRO, JACA, SARIÑENA > 
ZARAGOZA, CARIÑENA, CALATAYUD, DAROCA 5 
TERUEL, ALBARRACIN, ALCAÑIZ ,CALAMOCHA 
BARCELONA, MANRESA, TARRASA, SABADELL 
GERONA, OLOT ,FIGUERAS,SANTA COLOMA 
LERIDA,VIELLA, BALAGUER , CERVERA 
TARRAGONA, REUS, TORTOSA, AMPOSTA 

VALENCIA, ALCIRA,JATIVA, SAGUNTO 
CASTELLON, VINAROZ , MORELLA, NULES 
ALICANTE, ALCOY, ELCHE, ORIHUELA 

MURCIA, CARTAGENA, LORCA, YECLA 

ALMERIA ,PURCHENA,BERJA, VERA 

GRANADA ,MOTRIL , GUADIX, BAZA 

JAEN, ANDUJAR, LINARES, LA CAROLINA 

CORDOBA,MONTILLA,LA RAMBLA, CABRA 

MALAGA, ANTEQUERA, ARCHIDONA, MARBELLA 
SEVILLA, UTRERA, CARDONA, OSUNA 

CADIZ, JEREZ,ARCOS,SAN FERNANDO 

HUELVA, AYAMONTE, MOGUER , VALVERDE 

LEON,PONFERRADA, ASTORGA,LA BAÑEZA 

ZAMORA, TORO, BENAVENTE PUEBLA DE SANABRIA 

SALAMANCA, PEÑARANDA, BEJAR , LEDESMA 

AVILA, CEBREROS,EL BARCO,PIEDRAHITA 

SEGOVIA, SEPULVEDA, CUELLAR,RIAZA 

SORIA,BURGO DE OSMA, ALMAZAN, MEDINACELI 

BURGOS , ARANDA,ROA, BRIVIESCA 

PALENCIA, ASTUDILLO, SALDAÑA, CARRION 
VALLADOLID,MEDINA,OLMEDO, PERAFIEL 

MADRID, GETAFE,EL ESCORIAL, ARANJUEZ 
GUADALAJARA, SIGUENZA, SACEDON, MOLINA 

CUENCA, HUETE,MOTILLA, BELMONTE 

ALBACETE,LA RODA, ALCARAZ , ALMANSA : 

CIUDAD REAL PUERTOLLANO, VALDEPERAS, MANZANARES j 
TOLEDO, QUINTANAR, TALAVERA, ILLESCAS 

CACERES, PLASENCIA, NAVALMORAL , ALCANTARA his dl 
BADAJOZ, ZAFRA,MERIDA, ALMENDRALEJO y 
BALEARES, MAHON, IBIZA, MANACOR 

TENERIFE,LA LAGUNA,LA OROTAVA, GRANADILLA 
LAS PALMAS, GUIA, TELDE, ARRECIFE 


bordes de la pantalla, En el primer programa 
se simula el movimiento del caráctor “en un 
trozo de pantalla cuyas dimensiones están (1 
jadas en las variables U, D, L, y KR. Be usan las 
variables X e Y para las coordenadas del mó 


“vil en la pantalla, El movimiento que describo 


el móvil es diagonal, las variablea | y K contio 
nen el valor de la dirección y el sentido de 
esa diagonal. Se incluye un bucle de retardo 
en las líneas 380 y 390 para evitar que el mó 
vil se mueva demasiado de prisa, la duración 
del retardo es variable modificando el límite 
del bucle, 
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En la segunda versión del programa se 
ha introducido otro móvil; por ello son necesa- 
rias más variables de posición y de diagonal 
que en la primera versión. 

Por último, en la tercera versión se ha 
introducido una subrutina para simular el 


choque de los dos móviles cuando llegan a la 
misma posición de la pantalla. 


Para el ordenador Commodore se ha 
escrito una cuarta versión equivalente a la ter- 
cera antes descrita. 


10 REM eee IR AR PR AIIIIR 


20 REM + TITULOSREBOTE * 
30 REM + VERSION:1.0 + 
40 REM * PARA IBM-PC Y COMPATIBLES + 
SO REM 20306 o 42600 0 RED RE DE AREA IRE FRA RIA 
100 REM 36240036000 BR RR RRA BARÓ JE HR IA MRE 
110 REM +* INICIALIZACION DE LAS VARIABLES + 
120 REM stent 1 e dl BI HA MARE HA E REIR AA 
130 LET U=2 

140 LET D=18 

150 LET L=2 

160 LET R=25 

170 LET X=4 

180 LET-Y=4 

190 LET 1=1 

200 LET J=1 

210 CLS 3 

A LA 5 
310 REM * RUTINA GENERAL + 
320 REM sede md INAH DR MH RR RAI 
330 GOSUB 500 

340 LET X=X+I 

350 LET Y=Y+J 

360 LOCATE Y,X 

370 PRINT"*"; 

380 FOR A=1 TO 50 

390 NEXT A 

400 LOCATE Y,X ' 
410 PRINT " "; 

420 GOTO 310 

SO0 REM sede dt Hd REA 2H MER MIRE RRA RR 
510 REM * RUTINA DE COMPROBACIÓN DE LOS BORDES 1! + 
520 REM 40 RE RIERA IR MER BID REI DA JJ 
530 IF X=R OR X=L THEN LET I=-1I 

540 IF Y=U OR Y=D THEN LET J=-J" 

550 RETURN 


LET 


180 M=10 
Modificaciones para otros ordenadores 190 LET Y=4 
200 LET N=10 
210 LET 1=1 
AMSTRAD Y MSX A 
LINEA 360 LOCATE X, Y A 
LINEA 400 LOCATE KEY 30D REM Area dl A A A II A AR RJ 
» 310 REM +* RUTINA GENERAL + 
SPECTRUM B20 REM ARA III 
nó 330 GOSUB 530 
LINEA 370 PRINT AT X, Y; 340 GOSUB 630 
LINEA 410 PRINT AT X,Y;"* FO 
DESAPARECEN LAS LINEAS 360 Y 400 :370 LET Y=Y+J 
380 LET N=N+P 
390 LOCATE Y,X 
400 PRINT"x*"> 
2410 LOCATE N,M 
40 REM te AI 420 PRINT"D"s 
20 REM + TITULO:REBOTE + 430 FOR A=1 TO 50 
30 REM + VERSION:341.1 + 440 NEXT A 
40 REM + PARA IBM-PC Y COMPATIBLES * 450 LOCATE Y,X 
50 REM PARARON AR III 460 PRINT “ "; 
100 REM 4er RR RI IR 470 LOCATE N,M 
1410 REM * INICIALIZACION DE LAS VARIABLES * 480 PRINT " "; 
120 REM 4302 RIN MR II MIA RRE 490 GOTO 310 
130 LET U=2 500 REM deRRa RR O Reatt 
140 LET D=18 510 REM *RUTINA DE COMPROBACION DE BORDES 1 + 
150 LET L=2 S2D REM qee ed II RR RR 
160 LET R=25 530 IF X=R OR X=L THEN LET I=-1 
170 LET x=4 540 IF Y=U OR Y=D THEN LET J=-J 
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RETURN 

REM IRE RR III RI RRA 
REM *RUTINA DE COMPROBACION DE BORDES 2 + 
REM IA AIR RR III RA 
IF M=R OR M=L THEN LET K=-K 

1F N=U OR N=D THEN LET P=-P 

RETURN 


Modificaciones para otros ordenadores 


Estas modificaciones son comunes para 
las versiones 2.0 y 1.1 


AMSTRAD Y MSX 


LINEA 390 LOCATE X,Y - 
LINEA 410 LOCATE M,N 
LINEA 450 LOCATE X, Y 
LINEA 470 LOCATE M,N 


SPECTRUM 


LINEA 400 PRINT AT X,Y;"""; 

LINEA 420 PRINT AT M,N;*0"; 

LINEA 460 PRINT AT X,Y;"*; 

LINEA 480 PRINT AT M,N;**; 

DESAPARECEN LAS LINEAS 390 410 
450 470 


E 


20 REM + TITULO:REBOTE * 
30 REM + VERSION:3,0 + 
40 REM + PARA COMMODORE + 


SO REM e O III A IE 

100 REM. 3er 462 de HR AR DIR RIOR I 
110 REM *INICIALIZACION DE LAS VARIABLES * 
120 REM seee se RI SIR DARIA RE RR 
130 PRINT CHR$(147) 

140 LET U=2 

150 LEFT D=18 

160 LET L=2 

170 LET R=25 

180 LET X=4 

190 LET M=10 

200 LET Y=4 

210 LET N=10D 

220 LET 1=1 

230 LET K=1 

240 LET J=1 

250 LET:P=-4 

260 LET T$=CHR$(19) 

270 LET A$=CHR$(17) 

280 LET A$=CHR$(29) 

30D REM e e II III III RI 

310 REM +* RUTINA GENERAL + 

32LO REM FAR RT IR IIEIIA RRA RAA 

330 GOSUB 630 

340 GOSUB 730 

350" GOSUB 830 

360 LET X=X+1 

370 LET M=M+K 

380 LET Y=Y+J) 
390 LET N=M+P 

400 GOSUB 900 

410 PRINT"*"; 

420 GOSUB 1000 
430 PRINT"O"> 

440 FOR A=1 TO 
450 NEXT A 
460 GOSUB 

470 PRINT 

480 GOSUB 

490 PRINT 


50 


900 


TA 
; 


1000 
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GOTO 310 
REM RAR TR RR AI A 


610 REM * RUTINA DE COMPROBACION DE BORDES 1 
620 REM ette e 0 AIR AA A RR RRE RI 
630 IF X=R OR X=L THEN LET 1=-1 

640 IF Y=U OR Y=D THEN LET J=-J 

£50 RETURN 

A 
710 REM x< RUTINA DE COMPROBACION DE BORDES 2 + 
720 REM ee RA A RIIIE 
730 1F M=R OR M=L THEN LET K=-K 

740 1F N=U OR N=D THEN LET P=-P 

750 RETURN 

800 REM 400 III IA 
810 REM * RUTINA DE COMPROBACION DE CHOQUE ES 


REM e HR RR RRE IE MITE IEA RA 
IF X+I<>M+K OR Y+J<>N+P THEN RETURN 

LET 1=-1 

LET J=-J : - 
LET K=-K $ 

LET P=-P 

RETURN 


E 


20 REM * TITULO:REBOTE * 
30 REM + VERSION:2.0 * 
40 REM + PARA IBM-PC Y COMPATIBLES * 


DO REM aer HR TERRIER RA ARE 
100 REM de dead RR E RIE RRA INE RRA 
110 REM *INICIALIZACION DE LAS VARIABLES + 
120 REM mts RM MER MADE PI RIIIE 
13D CLS 
140 LET 
150 LET 
160 LET 
170 LET 
180 LET 
190 LET 
200 LET 
210 LET 
220 LET 
230 LET 
240 LET 
250 LET 
300 REM 


U=2 

D=18 

L=2 

R=25 

X=4 

M=10 

Y=4 

N=10 

I=1 

K=1 

y=1 

P=-1 

MAA AMI IDEAR DAI IR IRREAL 
310 REM * RUTINA GENERAL z + 
320 REM RAR O RR AIR RAID ERRE PERRA IIA 
330 GOSUB 630 ] 
340 GOSUB 730 
350 GOSUB 830 
360 LET X=X+1 
370 LET M=M+K 
380 LET Y=Y+J 
390 LET N=N+P 
400 LOCATE Y,X 
410 PRINT"*">5 
420 LOCATE N,M 
430 PRINT"O"; 
440 FOR A=1 TO 
450 NEXT A 

460 LOCATE Y,X 
470 PRINT “y 
480 LOCATE N,M 
490 PRINT " "; 
500 GOTO 310 
600 REM des ie EI 
610 REM * RUTINA DE COMPROBACION DE BORDES 1  * 
620 REM Hei RE RR IE IA AAA ERE 
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630 IF X=R OR X=L THENM-LET 1l=-1 

640 '1F Y=U OR Y=D THEN LET J=-J 

£50 RETURN z 

700 REM eN AR A AIR I RARIEIR 
7409 REM + RUTINA DE COMPROBACION DE BORDES 2 + 
720 REM Hee III REA RE AR ARA 
730 1F M=R OR M=L THEN LET K=-K 

740 IF N=U OR N=D THEN LET P=-P 

730 RETURN 


IS ES 


A RS RS A A 
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Ml Otros datos anejos 
sobre la máquina de Babbage 


EMOS hablado bastante so- 
bre máquinas de calcular 
de todo tipo. Desde máqui- 
nas «sencillas» que multipli- 
caban y dividían sin más 
pretensiones, hasta máqui- 
nas universales, como la Má- 
quina Analítica de Babbage. 
También hemos mencionado de pasada el te- 
lar de Jacquard, en el que se basó Babbage 
para resolver algunos problemas fundamenta- 
les de su máquina. Efectivamente, las tarjetas 
perforadas, y el hecho de almacenar al mismo 
tiempo los datos, y las instrucciones a la má- 
quina constituyen precisamente su moderni- 
dad. (Han seguido vigentes hasta hace muy 
pocos años.) 

Babbage basó el sistema de control y 
«programación» de su máquina en los trabajos 
de Jacquard, un industrial de Lyon (capital de 
la seda, en aquel entonces). 

Joseph Marie Jacquard nació en Fran- 
cia, en 1752. Su familia tenía telares, y él he- 
redó su telar tradicional. Nada lo habría hecho 
pasar a la Historia, pero Jacquard era un in- 
vestigador, y decidió mejorar su telar, para 
que fuera capaz de crear los dibujos más com- 
plicados y de la forma más precisa. Realmen- 
te no fue Jacquard el primero al que se le 
ocurrió la idea de utilizar tarjetas perforadas 
para indicar a la máquina la acción que debía 
llevar a cabo a continuación. La idea ya se le 
había ocurrido antes a otro francés, Falcon, 
pero Jacquard la desarrolló y mejoró obtenien- 
do resultados prácticos evidentes. 

(Falcon basó su sistema en el que utili- 
zaban algunos antiguos relojes musicales de la 
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Edad Media. A partir de ese sistema primitivo 
se han ido creando otros ingenios mecánicos, 
entre ellos la popular pianola, que toca melo- 
días por un sistema muy semejante al anterior, 
utilizando fichas perforadas que van unidas y 
dobladas en forma de acordeón, o mediante 
rodillos que llevan codificada la melodía, y 
que pueden sustituirse con facilidad.) 

Hasta el momento, cambiar el diseño de 

las telas o alfombras requería cierto trabajo y 
tiempo. Mediante las cartulinas, este proble- 
ma se simplificó enormemente. Las cartulinas 
llevaban perforaciones codificadas, y utilizán- 
dolas el telar realizaba dibujos distintos, lo que 
hoy llamaríamos «dibujos programables». El 
telar de Jacquard fue todo un éxito industrial 
en su época, y venían a Lyon desde toda Eu- 
ropa para verlo funcionar. En la primera dé- 
cada del siglo XIX se habían instalado sólo en 
Francia más de diez mil unidades. 
: El funcionamiento de un telar normal 
hace que los hilos de la urdimbre deban le- 
vantarse por cada movimiento de la lanzade- 
ra, que es donde se encuentran los hilos de la 
trama. De esta forma, la lanzadera pasa por 
debajo de la urdimbre. Para conseguir copiar 
el dibujo, el sistema prevé que las hebras que 
se mueven juntas vayan sujetas a la misma va- 
rilla. El juego de varillas se va enfrentando 
cada vez a una tarjeta perforada con el códi- 
go por cada movimiento de la lanzadera. (A su 
vez las tarjetas van avanzando en secuencia 
sobre una cinta, y pasan sobre un tambor para 
quedar enfrentadas a las varillas.) 

Dentro del conjunto de varillas, aque- 
llas que no se encuentren frente a una perfo- 
ración en la ficha permanecen sin moverse, 
elevándose las demás. De esta manera, codi- 
ficando colores, etc., en la tarjeta se pueden 
conseguir los dibujos más complicados. Bab- 
bage tenía en su salón un retrato de Jacquard 
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de un realismo increíble, Para su confección 
se habían utilizado unas 24.000 fichas perfora- 
das. 

Este sistema fue el que copió Babbage 
para «programar» su máquina. La propia Lady 
Lovelace describió muy femeninamente que 
«La máquina analítica tejía dibujos algebraicos 
del mismo modo que el telar de Jacquard te- 
jía flores y hojas». j z 

Sabemos que Babbage fue un persona- 
je antipático en sus últimos días, y que estaba 
amargado con la humanidad. Sin embargo, 
contó con la amistad e incluso con la colabo- 
ración de muchas cabezas pensantes de talla 
de la época. Entre ellas, la primera «progra- 
madora» de la historia, Lady Ada Lovelace, 

Ada Augusta Lovelace era hija del poe- 
ta Byron y de su esposa, Anabella Milbanke. 
Todos conocemos la belleza de sus versos, y 
la vida interesante y viajera del poeta. Sin em- 
bargo, como marido, dejó mucho que desear. 
Y, tras haber conquistado a su mujer, la aban- 
donó, junto con su hija Ada, En la familia de 
su mujer había una gran tradición en el estu- 
dio de las Matemáticas, y Anabella no fue una 
excepción, siendo una aficionada a la materia 
desde niña. Su marido la llamaba «Princesa de 
los Paralelogramos», Su hija Ada nació y vivió 
con la familia de su madre. Su padre jamás se 
ocupó de ella (probablemente porque pensa- 
ra que no le sería útil en absoluto, ya que la fa- 
milia de su mujer era noble, y dada su vida bo- 
hemia y atípica, más bien resultaría un estor- 
bo). Lo cierto es que Ada resultó ser una afi- 
cionada a las Matemáticas, con una mente cla- 
ra concreta, y además con ciertas dotes para 
expresarse por escrito. Desde luego, los tex- 
tos que nos han quedado de ella son muy su- 
periores a los de Babbage. 

-. Como ya sabemos, Babbage viajó por 
Europa y publicó algunos trabajos, siempre de 
lectura difícil y complicada. Entre sus segui- 
dores, un joven militar italiano (que además 
era ingeniero) dio numerosas charlas sobre los 
trabajos de Babbage y publicó trabajos, uno 
de los cuales se imprimió en un diario de Gé- 
nova en 1842. Los trabajos de Babbage se di- 
fundieron muchísimo por Europa gracias a 
Menabrea. 

Lady Lovelace leyó el artículo publica- 
do en el diario de Génova y lo encontró fasci- 
nante, Lo tradujo.al inglés, añadiéndole nume- 
rosos comentarios que aclaraban considera- 
blemente su estudio, Además, tenía un estilo 
literario fácil, y simplificaba lo que para mu- 
chos era complicado. (El propio Babbage ex- 
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plicaba sus teorías de forma farragosa, y para 
comprenderlo, resultaba mucho más práctico 
leer a su amiga Lady Lovelace.) 

Ada Lovelace había comprendido per- 
fectamente las ideas de Babbage, y se intere- 
só principalmente por la faceta de hacer lle- 
gar a la máquina instrucciones sobre lo que 
debía hacer. Hoy en día a estas acciones las 
llamamos «programar», es decir, formular el 
conjunto de instrucciones que permitan a la 
máquina realizar su trabajo automáticamente, 
sin requerir para nada el concurso humano. 

Lady Lovelace es muy precisa en todos 
sus escritos, exponiendo sus puntos de vista 
con exactitud casi impertinente (punto funda- 
mental para el manejo de la nueva máquina). 
Parece increíble que esta señora que nació 
hace más de ciento cincuenta años, desarro- 
llara varios programas para resolver proble- 
mas matemáticos, algunos de los cuales eran 
muy complicados. 

Todos los escritos de la dama son inte- 
resantes. Sobre la máquina de Babbage escri- 
bió lo siguiente: «La máquna excede a las pre- 
decesoras en la amplitud de los cálculos que 
puede ejecutar, la facilidad, seguridad y pre- 
cisión, así como en la ausencia de la necesi- 
dad de que intervenga la inteligencia huma- 
na durante la ejecución de los cálculos». 

Lady Lovelace llegó a conocer la má- 
quina casi mejor que su creador. Había 
estudiado su arquitectura hasta el límite, lo 
que le permitió aconsejar a Babbage algunas 
modificaciones, que éste aceptó como posi- 
bles, 

Sin embargo, la frase que mejor demues- 
tra su conocimiento profundo de la máquina 
de Babbage y su filosofía es la siguiente: «La 
máquina Analítica no tiene pretensiones de 
originar nada, Sólo puede hacer aquello que 
nosotros sepamos ordenarle que ejecute, Pue- 
de seguir el análisis pero no tiene poder de 
anticipar relaciones analíticas o verdaderas 
cualesquiera. Su dominio es ayudarnos para 
hacer disponible lo que ya conocemos», ¿Exis- 
te otro modo más claro de explicar una máqui- 
na tan compleja? 

En 1979, propiciado por el Departamen- 
to de Defensa de los Estados Unidos, se traba- 
jó en un nuevo lenguaje en Francia. (Su prin- 
cipal creador fue Jean Ichbiah.) Recibió el nom- 
bre de Ada, en reconocimiento a la labor de 
estudio y difusión de esta dama inglesa. 

En el siglo XIX se continuó intentando 
mejorar las máquinas de calcular, abandonan- 
do casi totalmente la idea de máquina univer- 


sal de Babbage. Se abandonó el antiguo siste- 
ma de palancas y giros para pasar a utilizar te- 
clas, que eran mucho más cómodas y rápidas. 
La primera máquina de cálculo que utilizaba 
teclas apareció en el mercado hacia 1850, y 
era americana. Su inventor fue D. D. Parma- 
lee. Sin embargo, era una máquina muy incó- 
moda, que sólo sumaba una columna de núme- 
ros cada vez. Además la respuesta de las te- 
clas no estaba muy controlada, y en ocasiones, 
al presionar inadecuadamente, se podían ob- 
tener respuestas inexactas. (Esta calculadora 
era del tipo de «cremallera», naturalmente con 
sus correspondientes piñones y engranajes de 
transmisión.) 

Algo más tarde, apareció en el merca- 
do otra máquina que podía sumar varias co- 
lumnas a la vez. Sin embargo, tampoco fue una 
máquina segura, a pesar de los esfuezos de 
mejorarla de su «inventor», Thomas Hill. 

La máquina más segura y eficaz (real- 
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mente fiable) no vio la luz hasta 1874. Suinven- 
tor fue un sueco, Thomas Ohdner. Esta máqui- 
na tuvo un éxito enorme, por toda Europa, in- 
cluyendo los aislados países centroeuropeos y 
Rusia. Otro prototipo muy similar apareció en 
los Estados Unidos patentado por Baldwind y 
Monroe. También tuvo un gran éxito, y fue la 
base para la creación de una Compañía de 


Calculadoras Monroe, que existe en nuestros 
días. 


En 1885 aparecería otra máquina a te- 
clas pero mucho más fiable que los primeros 
intentos llevados a cabo hasta el momento. Su 
creador, Felt, la llamó Contómetro. También 
tuvo éxito por su fiabilidad, y por el apoyo que 
la empresa que creó daba al cliente, creando 
manuales, dando clases prácticas de manejo, 
etcétera. Su máquina llegaba a hacer raíces 
cuadradas, calculaba porcentajes rápidamen- . 
te, etcétera. 


TEMAS MONOGRÁFICOS DE VANGUARDIA MH 


Ml Proceso paralelo 


S muy frecuente en aplica- 
ciones en tiempo real que 
los trabajos a realizar re- 
quieran cálculos masivos. 
De esta característica ha de- 
rivado el considerable auge 
que va tomando el proceso 
en paralelo. Existen innume- 
rables campos para los que su desarrollo tie- 
ne enorme interés (recordemos, por ejemplo, 
los trabajos sobre Visión Artificial, Astrono- 
mía, Predicción Meteorológica, etc.). Se han 
hecho estudios para mejorar el hardware de 
las máquinas (la arquitectura concretamente, 
pero los progresos en el campo del proceso 
en paralelo han sido bastante limitados. 

Hablaremos, pues, sobre el software 
desarrollado para estos sistemas, y también 
de la metodología y sistemas automáticos aso- 
ciados, que facilitan las mejoras del proceso 
en paralelo cambiando las particiones de di- 
cho paralelismo, y analizando después los re- 
sultados. 

Al principio, la programación en para- 
lelo estaba motivada por la necesidad de re- 
ducir los tiempos de ejecución, que en deter- 
minados procesos eran muy largos, y que 
cuando se trabajaba en tiempo real era peren- 
torio reducirlos. El tiempo de ejecución es lar- 
go principalmente debido al enorme cúmulo 
de datos a procesar, y no a la complejidad de 
las operaciones a ralizar con ellos, Así pues, 
el paralelismo en las arquitecturas de los or- 
denadores de gran tamaño se ha concebido 
como un sistema de mejorar la capacidad de 
proceso a nivel de las operaciones primitivas. 
Se han desarrollado, por ejemplo, compilado- 
res especiales adaptados para que acepten 
como entrada programas convencionales (es- 
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critos fundamentalmente en Fortran) y reco- 
nozcan las operaciones que pueden ser reali- 
zadas en paralelo (para una arquitectura de 
ordenador específica). Además, en las máqui- 
nas de flujo de datos, las operaciones primiti- 
vas individuales se organizan en el tiempo en 
los respectivos procesadores individuales. La 
partición en módulos muy pequeños (granula- 
ridad muy fina) de estos programas, lleva a so- 
brecargas (overhead) en comunicaciones, y 
cuellos de botella, limitando efectivamente el 
alcance de este posible paralelismo. 

La situación es la siguiente: en un ex- 
tremo, se puede hacer que la granulación sea 
muy fina (módulos muy pequeños) y las ope- 
raciones se asignan a los procesadores res- 
pectivos. Con ello, efectivamente se maximiza 
el paralelismo, pero el resultado es una sobre- 
carga del sistema (overhead) en comunicacio- 
nes y en el acceso a la memoria. En el otro ex- 
tremo, si la granulación es más basta (los mó- 
dulos de los programas mayores), el proceso 
sólo se parte en algunos gránulos, el paralelis- 
mo es menor, pero la sobrecarga deja de ser 
preocupante. Otra posibilidad es mejorar lo 
anterior, programando a varios niveles, e in- 
crementando la granulación, para ir obtenien- 
do elementos más finos cada vez. Para nues- 
tro trabajo vamos a suponer que estamos tra- 
bajando con una red de comunicaciones com- 
puesta por varios procesadores, cada uno de 
los cuales dispone de su propia memoria, in- 
dependientemente de que cada procesador 
(en cada nivel) sea internamente un procesa- 
dor unitario secuencial, o esté formado por 
procesadores paralelos. Así pues, supondre- 
mos que cada gránulo está asignado 'a un úni- 
co procesador. Nuestra idea consiste en inten- 
tar obtener en cada nivel el equilibrio entre el 
paralelismo y el overhead (sobrecarga) en co- 
municaciones. Para acercarnos a nuestro ob- 


Interfaces con los 
terminales de los Operadores 


Datos de Datos de 
Modelización e Entrada-Salida 
Históricos y de planificación 


Sensores y Actuadores (Interfaces y Equipos) 


Configuración general típica de un sistema multiproceso donde aparecen los distintos módulos y sus interconexiones. 


jetivo será necesario mantener la adecuada 
correspondencia entre la progresiva partición 
del problema (que realicemos a nivel de pro- 
gramación) y la distribución en gránulos de 
programas paralelos. Esta correspondencia es 
necesaria para el desarrollo adecuado de las 
pequeñas partes, así como para la depuración 
de los programas, modificaciones y extensio- 
nes del software total, a lo largo de todo su ci- 
clo de vida. 

Las particiones del programa se basan, 
inicialmente en la afinidad funcional. Se em- 
plearán series de sistemas automáticos para 
proporcionar eventualmente realimentación 
acerca de las capacidades disponibles. Esto, 
junto a las limitaciones en cuanto al tiempo, 
derivadas del entorno operacional, irán guian- 
do al progrador a realizar otras particiones, o 
air consolidando los módulos, hasta llegar a la 
mejor división, aquella cuyos resultados sean 
satisfactorios. Estas etapas son muy parecidas 
a las empleadas en desarrollar sistemas en 
tiempo real, pero, eso sí, en nuestro caso, el 
sistema que se está programando es muy com- 
plejo, los datos a tratar son tantos que el pro- 
gramador se perdería si no siguiera para re- 
solver el problema ciertas etapas automática- 
mente. 
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a) Después de la partición inicial del 
problema, se configura una red de módulos de 
comunicaciones, creando un mapa de comuni- 
caciones entre los procesadores paralelos. Ya 
hemos dicho antes que cada procesador pue- 
de ser a su vez un subsistema multiproceso. 

b) A continuación, se pasa a ir defi- 
niendo cada uno de los gránulos independien- 
temente, compilándolos en los programas res- 
pectivos, y probándolos. 

c) Inmediatamente, se pasa a analizar 
los retardos (delays) dentro de cada gránulo 
entre la entrada y/o la salida. Estos retardos 
se deben a una combinación de operaciones 
y comunicaciones con los otros módulos. 

d) Los módulos se integran dentro de 
la configuración específica. Se evalúa en ese 
momento la capacidad total de la red, consi- 
derando las limitaciones en tiempos. 

e) Se sigue considerando la configura- 
ción, consolidando los respectivos módulos o 
dividiéndolos, para tratar de eliminar el cue- 
llo de botella o los retardos que no pueden to- 
lerarse. Durante esta revisión, puede que ne- 
cesite la adición de más procesadores a la 
configuración, si es que se pasa a dividir al- 
guno de los elementos. Sin embargo, también, 
puede ocurrir que se integren varios elemen- 
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tos dentro de un único módulo de proceso, o 
dentro del mismo procesador, 

f) Se repiten los pasos hasta que la 
configuración sea satisfactoria. En esta etapa 
es necesaria la colaboración humana para 
aportar otras consideraciones externas al pro- 
blema, como caminos críticos que signifiquen 
unas restricciones de tiempos. Además, las re- 
des locales suelen tener normalmente cami- 
nos circulares, que requieren el análisis de su 
comportamiento, por parte de un programa- 
dor, 

Para llevar a cabo las etapas anteriores, 
sé necesitan tres tipos de sistemas automáti- 
Cos: 

a) Un Configurador, para sintetizar los 
módulos componentes en una red que realice 
los cálculos deseados. La configuración no 
debe ser tan rígida que apenas pueda modi- 
ficarse, por el contrario, debe ser maleable 
para facilitar los cambios durante el ciclo de 
cómputo programado. También debe ser eje- 
cutable progresivamente, para sus posibles 
comprobaciones (quizá en una máquina espe- 
cial de desarrollo), y también, en ciertos ca- 
sos en el propio superordenador paralelo en 
el que al final será ejecutado. 

b) Un lenguaje para definir cada mó- 
dulo, y un compilador para traducirlo en pro- 
gramas que irán a los respectivos procesado- 
res. Respecto de la eliminación de errores, 
es útil que se realice en cada módulo indivi- 
dualmente. El lenguaje debe soportar tam- 
bién cierta modularidad interna, por posibles 
particiones anteriores a la consolidación de 
cada módulo. 

Cc) También será necesario un TIMER, 
para procesar los retardos propios de los grá- 
nulos. , 

». Veamos alguna aplicación concreta. 

Hasta el momento, los grandes ordena- 
dores se han utilizado principalmente para 
cálculos masivos autónomos, tales como simu- 
lar fenómenos físicos o sociales. Sin embargo, 
en este caso vamos a tratar fenómenos que se 
desarrollan e interactúan en tiempo real. Ver- 
daderamente, estos últimos problemas son los 
que han llevado directamente al uso del para- 
lelismo en computación. El problema más im- 
portante radica en la criticidad de los tiempos, 
mucho más que en el cúmulo de datos. 

En el dibujo, ilustramos de forma muy 
general este tipo de problemas. Los rectángu- 
los denotan módulos de proceso (gránulos) a 
nivel basto, Como puede verse, pertenecen a 
cuatro clases diferentes. A la izquierda se en- 
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cuentran los módulos que sirven para comuni- 
car a los operadores humanos con el conjunto 
del sistema, Estos gránulos solicitan comandos 
o preguntas de los terminales de opera- 
ción, y los dirigen a los módulos destino res- 
pectivos, También reciben información para 
los correspondientes terminales. Los interfa- 
ces con los sensores (que aparecen en la par- 
te inferior de la figura) obtienen y compactan 
la información obtenida, enviándola a otros 
gránulos. También interpretan comandos de 
alto nivel de otros módulos y los traducen en 
una secuencia de pasos para el equipo del ac- 
tuador. En el centro se pueden ver gránulos 
que modelan el entorno externo, y proyectan 
los posibles efectos de los distintos planes al- 
ternativos. Estos módulos también mantienen 
datos antiguos. A la derecha se encuentran 
módulos que planean y controlan la actividad 
de los actuadores, Estos módulos optimizan el 
uso de recursos, procesan tareas especifica- 
das en la entrada y producen informes de sa- 
lida. A pesar de que todos los gránulos son 
capaces de comunicarse unos con otros direc- 
tamente, debe establecerse una relación je- 
rárquica para las comunicaciones entre ellos, 
y puede ser útil limitar éstas para que sólo se 
lleven a cabo entre los elementos más próxi- 
mos. 1 

La' figura que mostramos puede ser el 
esquema, por ejemplo, de una factoría integra- 
da y automatizada. Los operadores inician y 
completan las actividades, observando las dis- 
tintas etapas, y cómo va progresando la fabri- 
cación. Los actuadores se ocupan del manejo 
del material y de las operaciones de produc- 
ción. Por otro lado, los sensores proporcionan 
imágenes del proceso, fuerza y, en general, la 
información necesaria para coordinar todo el 
proceso de fabricación. Los módulos de simu- 
lación mantienen el estado general del equi- 
po, e informan sobre posibles alternativas a to- 
mar, para optimizar el uso de los recursos, evi- 
tando errores importantes. Finalmente, los mó- 
dulos de planificación reciben los objetivos 
generales de fabricación y planean su ejecu- 
ción. 

La figura anterior, además de poder ser 
el esquema de una fábrica, también puede ser 
el esquema del sistema de control de un ae- 
topuerto. Los operadores pueden introducir o 
modificar planes de vuelo, ver imágenes de 
radar y recibir informes sobre el estado ge- 
neral del sistema o algunas de sus partes. Los 
sensores, por su parte, pueden suministrar in- 
formación sobre el estado del tiempo, veloci- 
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dad, altura, etc, Los actuadores serán los que 
controlen el vuelo. De esta forma, los gránulos 
de simulación mantendrán y proyectarán la 
ruta, mientras que los gránulos de planifica- 
ción evaluarán otras posibles alternativas. 


Existen también tareas que, aunque no 
suponen restricciones respecto al tiempo (no 
son en tiempo real) sí suponen interacciones 
con personas relacionadas con esos estudios. 
A pesar de todo ello, también puede identifi- 
carlas la figura anterior, si se eliminan los mó- 
dulos de interfaz con los actuadores. 


Los módulos individuales se pueden 
considerar como elementos asíncronos, que 
funcionan con la llegada de la información. 
Esta información puede guardar cola a su lle- 
gada a los elementos individuales. Los retat- 
dos se pueden determinar basándonos en las 
relaciones de envío y recepción de la infor- 
mación. Los elementos de modelación y pla- 
neamiento consumen la información produci- 
da por el sensor y el actuador, sirviendo de in- 
terface con los módulos y produciendo res- 
puestas. El tiempo en que se producen las res- 
puestas es crítico para que el uso del equipo 
sea eficaz, y para evitar errores, y problemas 
de todo tipo. Los cálculos masivos serán nece- 
sarios en ciertos módulos que actúan de inter- 
faz con algún sensor, como, por ejemplo, en el 
análisis de imágenes y en la modelización de 
planes. Pueden suponer retrasos enormes, 
que se podrán reducir creando nuevas parti- 
ciones de gránulos para incrementar el para- 
lelismo o, en algunos casos, agrupando éstos 
para reducir las comunicaciones. Los retardos 
permisibles vienen dictados por el entorno ex- 
terno, y por las características del equipo, no 
especificadas en el cálculo. Para evaluar todos 
estos problemas es necesario contar con la co- 
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laboración de especialistas, diseñadores, que 
puedan valorar adecuadamente todos esos pa- 
rámetros impuestos. 

En la última década se han escrito nu- 
merosos lenguajes para facilitar el diseño, im- 
plementación, especificación y verificación de 
programas paralelos. Los lenguajes de confi- 
guración suponen un medio sencillo y eficaz 
para sintetizar un conjunto de gránulos para 
formar un programa en paralelo. Las especifi- 
caciones de configuración, escritas en un len- 
guaje de configuración, suponen una expre- 
sión centralizada del programa paralelo, im- 
portante en el momento de presentar y com- 
prender la abstracción que debe soportar el 
programa. El aspecto clave de un configura- 
dor es separar aquellos aspectos que han de 
ser resueltos mediante programación parale- 
la de aquellos otros que se pueden resolver 
mediante programación secuencial. Esta sepa- 
ración, hace que un lenguaje de configura- 
ción sea independiente de los lenguajes de 
programación secuenciales, y así permite a 
los módulos componentes estar escritos en 
distintos lenguajes de programación, adecua- 
dos a sus distintas aplicaciones. 

Los configuradores sirven para propot- 
cionar toda la información necesaria para 
construir y ejecutar un programa paralelo. Por 
ejemplo, identifican los tipos de módulos de 
software con los que se construirá el progra- 
ma, los formatos de estos módulos, y cómo 
esos módulos están interconectados. También 
los recursos de hardware necesarios para la 
ejecución del programa, dónde deben cargat- 
se los gránulos, los requerimientos de tiempo 
que debe satisfacer el programa, y. cómo ma- 
nipularán la información los distintos gránulos 
que se encuentran dentro del mismo proce- 
sador. 
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Actuador. Equipo periférico de acción capaz 
de realizar funciones en el área de la robó- 
tica, de acuerdo con las instrucciones reci- 
bidas por el programa. 


Caminos (paths). En comunicaciones, canal 
que une varios puntos en la red: este canal 
puede estar formado [por varias etapas (y 
hasta puede incluir ordenadores u otros dis- 
positivos). 


Cola. Una cola es simplemente un espacio re- 
servado en la memoria (generalmente la 
memoria intermedia) en el que se retiene 
una lista de información temporalmente. 

Lista FIFO (primero en entrar, primero 
en salir). Pila de desplazamiento ascenden- 
te. En uno de los extremos se hacen toda las 
inserciones, y en el otro toda las extraccio- 
nes. Esta cola se puede implementar en el 
soporte físico como un tipo de memoria es- 
pecial, carente de direcciones. Se utiliza 
normalmente para acelerar la introduc- 
.ción/salida de la memoria intermedia de un 
flújo de datos en tiempo real y es una forma 
de memoria que necesita tiempo de co- 
mienzo/parada. Las colas se caracterizan 
por la forma en que se van uniendo a ella 
los procesos esperando la utilización del 
servicio de que se trate así como también 
por cómo se efectúa la selección de aquel 
elemento de ésta que va a pasar a proce- 
sarse. Esta decisión depende del elemento 
Administrador de la Cola. 


Configuración, lenguaje de. Lenguajes es- 
pecíficos concebidos para el diseño de so- 


luciones en ordenadorés de proceso en pa- 
ralelo. 


Delay. (Véase Retardo.) 
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Granularidad. Tamaño de los módulos en 
que se divide un programa para su poste- 
rior proceso en paralelo. 


Overflow. Desbordamiento. Situación que se 
produce cuando una operación excede la 
capacidad de almacenamiento de la zona. 
de memoria preparada para almacenarlo. 
También puede referirse únicamente a la 
parte de la información que excede la ca- 
pacidad de almacenamiento de la memoria 
reservada para ese fin. 


Overhead. (Véase 'Sobrecarga.) 


Overlap. Solapamiento. Cierta forma de pa- 
ralelismo en el que los sucesos tienen lugar 
concurrentemente. Con el fin de incremen- 
tar el rendimiento del ordenador se van so- 
lapando las instrucciones, y, por ejemplo, se 
va buscando una, mientras se está proce- 
sando la anterior, etc. Si este solapamiento 
se produce en cálculos aritméticos elemen- 
tales, el proceso recibe el nombre de pipe- 
lining (conducción, tubería). 

Existe un tipo de memorias (llamadas 
solapadas) que permite recuperar palabras 
sucesivas desde bancos distintos. De este 
modo se solapan las operaciones lógicas 
(que se realizan en un banco), la reescritu- 
ra (en otro), y el acceso a la memoria (en 
otro distinto también). 


Proceso en paralelo. Este término admite 
bastantes conceptos, todos ellos relaciona- 
dos. Proceso en el que en un momento dado, 
se está ejecutando más de un proceso, o 
cuando en un momento dado están activos 
varios procesadores para realizar un con- 
junto de procesos, simultáneamente. Es fre- 
cuente, sin embargo, llamar proceso en pa- 
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ralelo a una situación en la que potencial- 
mente están activos varios procesos aunque 
físicamente sólo se esté ejecutando uno en 
cada momento. 


Proceso Pipeline. Proceso por etapas. Pro- 
cedimiento para acelerar la ejecución de 
los procesos. En un programa cualquiera, 
cada instrucción se divide en muchas eta- 
pas cortas y simples, de forma que en un 
momento dado, se tienen muchas instruccio- 
nes en varias etapas. De esta forma, cuando 
la primera etapa ha terminado, los resulta- 
dos pasan a una segunda, que emplea otro 
soporte físico diferente, quedando el primer 
soporte físico libre para seguir el proceso. 
Con este sistema, se aumenta el rendimien- 
to enormemente en los procesos secuencia- 
les, complicando por el contrario la unidad 
de control que lleva la cuenta de todas las 
cantidades que se están realizando en un 
momento dado. Esta técnica se utiliza en 
grandes ordenadores, que manejan gran- 
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des cantidades de datos en los que el tiem- 
po empleado es factor fundamental. Otra 
forma de enfocar el problema, es el proce- 
so en paralelo. 


Programación en paralelo. Creación de 


un programa que contiene varios módulos 
que han de ejecutarse en paralelo (al mis- 
mo tiempo). En muchas ocasiones, pasos de 
programa que deberían realizarse de forma 
secuencial se realizan utilizando varios pro- 
cesadores. 


Sobrecarga (Overhead). Tiempos adicio- 


nales que emplea un sistema en acciones ta- 


_ les como asignar recursos, dar respuesta a 


estados especiales, protecciones, acciones 
para asegurar la fiabilidad, etc. Estas accio- 
nes no contribuyen directamente al progre- 
so de las tareas del usuario del sistema. 


Transmisión en paralelo. Transmisión 


(normalmente simultánea) de los caracteres 
de una palabra sobre diferentes líneas. 


VOCABULARIO DE INFORMATICA HA 


Instrucciones, registro de. Registro que 
almacena una instrucción para su ejecución. 


Instrucciones, repertorio. Conjunto de ins- 
trucciones de que dispone un procesador. 
Conjunto de operaciones que se pue- 
den representar por un código de opera- 
ción dado. 
Integrado, proceso de datos. Proceso de 
datos en el que la coordinación de la adqui- 
sición de los datos, y otras etapas de su pro- 
ceso se realizan por un sistema coherente. 
Proceso de datos para la empresa u otra or- 
ganización, en el que los datos se integran 
en un sistema único de tal modo que las dis- 
tintas actividades se interconexionan para 
transmitirse los datos y dar resultados unita- 
rios. 
Integrador, motor. Motor diseñado para dar 
una relación constante entre la velocidad de 
rotación del eje (salida) y la señal de entra- 
da. De este modo, el ángulo de rotación del 
eje con respecto a una posición dada de ori- 
“gen es proporcional a la integral de tiempo 
de la señal aplicada. 
Integrador. Dispositivo cuya función de sali- 
da es proporcional a la integral de la fun- 
ción de entrada con respecto a una varia- 
ble especificada, como puede ser un medi- 
dor del número de vatios consumidos por 
hora. 
Inteligencia artificial. Capacidad que dis- 
pone un dispositivo por la cual es capaz de 
realizar funciones asociadas normalmente 
con la inteligencia humana. Entre ellas, po- 
demos considerar el razonamiento, el 
aprendizaje y la capacidad de superación. 
Interblock gap. Significa lo mismo que el es- 
pacio entre bloques (block gap). 
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Interface. Término inglés que se refiere a al- 


guna frontera común entre dos dispositivos 
o elementos. Puede referirse a un compo- 
nente de hardware que sirve de unión en- 
tre dos dispositivos, o puede ser una parte 
de los registros de almacenamiento, accesi- 
ble por dos o más programas de ordenador. 
Muy normalmente se utilizan interfaces de 
software que realizan la misma tarea indi- 
cada para los interfaces hardware. 


Interleave. Término inglés que indica la ac- 


ción por la que se ordena una secuencia de 
elementos o acontecimientos de forma que 
se intercalen con una o más secuencias del 
mismo tipo, de forma que cada secuencia 
mantenga su identidad. Por ejemplo, para 
organizar un almacenamiento entre bancos 
de datos, de forma que las referencias se- 
cuenciales de datos se puedan sobreponer 
en un período dado de tiempo. 


Interno, almacenamiento. Almacenamien- 


to direccionable, controlado directamente 
por la unidad central de proceso de un or- 
denador digital. 


Interpelativo código. Repertorio de ins- 


trucción, para la entrada de lenguaje fuen- 
te a un intérprete. 


Intérprete. Programa de ordenador que tra- 


duce y ejecuta cada instrucción de lengua- 
je fuente antes de traducir y ejecutar la si- 
guiente instrucción. 

En particular, en los microprocesadores 
domésticos suele existir nativo un intérpre- 
te de BASIC para traducir instrucciones de 
BASIC a lenguaje máquina. Tiene una fun- 
ción análoga, a la de los compiladores len- 
guajes más complejos, como COBOL o FOR- 
TRÁN. El programa intérprete forma parte 


del software de base de un ordenador y 
siempre debe encontrarse en la memoria, 
para poder «interpretar» los programas en 
el momento de su ejecución. En algunos or- 
denadores, el intérprete está cargado de 
forma fija en la memoria ROM, pero en otros, 
por el contrario, se carga cada una de las 
veces en la memoria central, RAM, desde 
algún soporte exterior (disquetes o cintas 
magnéticas, etc). 

Inter-record gap. Término inglés que deno- 
ta el espacio de separación entre dos regis- 
tros. 

Interrupción. Detención de un proceso de 
forma que pueda reiniciarse en otro mo- 
mento, También puede referirse a una se- 
ñal de hardware que interrumpe la ejecu- 
ción normal de un programa, permitiendo la 
ejecución de otros programas o subrutinas. 
Al término de estas ejecuciones, se reanu- 
dará el proceso anterior. 

Interrupción, máscara de. Sistema para 
suprimir las interrupciones de forma selec- 
tiva cuando se producen, de tal forma que 
se pueda actuar sobre ellas en un momento 
posterior. 

Interrupciones, prioridades en las. Or- 
den de importancia asignado a las interrup- 
ciones. Un sistema puede responder única- 
mente a una interrupción cada vez, o pue- 
de tener una tasa más alta que la de servi- 
cio. El sistema puede disponer de máscaras 
de interrupción, que supriman algunas se- 
lectivamente, si ha ocurrido alguna in- 
terrupción cuyo orden de prioridad sea ma- 
yor. 

Dispositivo que interrumpe una deter- 
minada señal o acción. Existen dos tipos de 
interrupciones en informática, las de hard- 
ware (interruptores físicos) y las de softwa- 
re, que pueden utilizar simplemente una va- 
riable binaria. 

Intervalo. Espacio entre dos elementos. Zona 
de la cinta magnética entre dos grabacio- 
nes o registros sucesivos, que no contiene 
información alguna, y que actúa como sepa- 
rador. Zona de un disco rígido o flexible uti- 
lizada como separador entre dos informacio- 
nes, y no accesible por el usuario. 

Introducción de los datos. Información 
proporcionada desde el exterior a un dispo- 
sitivo de proceso de datos. 
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Invariante. Propiedad que permanece ver- 
dadera sean cuales fueren las transforma- 
ciones llevadas a cabo. Se puede aplicar a 
programas, a módulos o a operaciones indi- 
viduales. 


Inversor. Parte lógica electrónica que invier- 
te las señales que recibe de forma que 
cuando recibe un 1 lógico (verdadero) lo con- 
vierte en un 0 lógico (falso), y viceversa. Im- 
plementa, por tanto la operación lógica NO. 


Invertido, fichero. En la recuperación de la 
información, método de organización de fi- 
cheros, con índices cruzados, en el cual una 
determinada clave identifica un registro, y 
los elementos, números o documentos rela- 
cionados con esa palabra clave. También 
puede referirse a un fichero cuya secuen- 
cia ha sido invertida. 


ISDN. Abreviatura de Integrated Services Di- 
gital Network (Red Digital de Servicios In- 
tegrados). Red Internacional de comunica- 
ciones digital. Es portadora de imagen, so- 
.nido, datos informáticos, etc. Está concebi- 
da como un sistema único capaz de dirigir 
las comunicaciones de todo tipo. 

ISO. Siglas de International Standard Organi- 
zation (Organización Internacional de Nor- 
mas). Organismo que marca las normas in- 
ternacionales que deben cumplir todos 
aquellos dispositivos y sistemas, etc., rela- 
cionados con la Informática. Regula desde 
los tamaños de tornillos hasta protocolos de 
enlaces, normas de codificación, etc. Fue 
fundada en 1946 por un comité en el que 
participaron más de 60 países. 


Item. Término inglés para desigar un elemen- 
to, como miembro de un grupo, etc. Así 
pues, cada elemento forma parte del grupo 
correspondiente. También puede referirse 
a una colección de caracteres relacionados, 
considerados como una unidad. 


Iteración. Repetición de un grupo de instruc- 
ciones o de un programa, hasta que se ve- 
rifique que se da una determinada condi- 
ción de control. (También se llama Bucle). 


I/O. Siglas que se corresponden con las es- 
pañolas E/S/ (Entrada/Salida). Pueden apli- 
carse a multitud de términos informáticos 
(canal de E/S, control E/S, dispositivo E/S, 
bus E/S, puerta E/S, etc). 


